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7 i. ABSTRACT 

’ THIS PROGRAM JS A HARDWARE DIAGNOSTIC FOR THE 
} 4046 MOVING HEAD DISK CONTROLLER AND ADAPTER 
, LOGIC. IT IS ASSUMED THAT THE DISK TERMINAL 
$ TS FUNCTIONING PROPERLY, 


5 2, REQUIREMENTS 

; 1, NOVA FAMILY CENTRAL PROCESSOR 

; 9, MINTMIIM OF 4K READ/WRITE MEMORY . 8° * i. 
y 3. 40846 MOVING HEAD NISK CONTROL , 

3 - Be 4047,4048,4249 OR 4957 

} | DISK -ADAPTER si 

' 5, 1 T9 4 ISK TERMINALS 

? 6. TELETYPE ANN CONTROL 


Be OPERATING PROCEDURE 
1. LOAN USING THE RINARY ‘LOADER: : ha 
2. STARTING ADDRESSES ‘ a ee 
- 7 §A2= TO TNENTIFY OTSK TYPE PP ieee 2% 
PROGRAM THEN PROCEEDS TO 40%, 
SAé= SFT DISK CONTROL ADDRESS TG 33 
$a5@= SET DISK CONTROL AUDRESS TO 73. 
SA4VR— START NIAGNOSTIC , 
"3, THE PROGRAM PRINTS "PASS" FOLLOWING EACH 
~ CAMPLETE PASS THROUGH THE TESTS. 
4. SWITCH SETTINGS 
Swasz FROM FRRNR, GA TO NEXT. TEST. 
‘Swiss INHIBIT TELETYPE PRINTING, 
‘ Sw28 PRINT FAILURE RATE, 3. :7 
Sw33 RECALIBRATE DURING SCOPE LOOP 
- Sw4e 1 SEC DELAY IN SCOPE LOOP 
- Sw5e6a UNIT & FOR RECAL OURING SCOPE LOooP 


4, ERRORS 

WHEN AN ERROR tS” DETFCTED YHF PROGRAM HALTS, 
(AC3) POTNTS TO THE LOCATION FOLLOWING THE 
FRROP HALT CALL "EHALT", CONSULT THE COMMENTS 
AREA OF THE DIAGNOSTIC PROGRAM LISTING FOR 
CLUES AND POSSTYBLE CAUSES OF THE FAILURE, ’ 
PUSHING CONTINUE WILL CAUSE THE PROGRAM TO .-°~ 
PRINT THE (AC3) ANN ENTER A SCOPE LOOP, 
SEY SW2 TO CAUSE THE ERROR RATE (@-1@U%) TO BE 
PRINTED, SET SWA TNO FXIT FROM THE SCOPE LOOP 
AND PROCEED TO THE NEXT TEST, 


. 


Ree, 


a avn2 MAIN . 
‘ 

SOME SCOPE LOOPS WILL REQMUIRE A RECALIBRATE 

TO INITIALIZE THE OISK PRIVE FOLLOWING A FAILURE, 

SET SWITCH S$ TN INTRODUCE THE RECALIRRATE, THE. 

UNIT TO BE RECALIBRATED MUST BE SET INTO SWITCHES 

5 ANN 4, 


== “ Ge @6 


TESTS THAT PERFGRM A RECALIBRATE HAVE A 2 SEC, - 
DELAY KUILT INTO THE SCOPE LNOP AS PROTECTION 
FOR TRE DISK DRIVE ELECTRONICS, SET SWITCH 4 

TO INTRONUCE AN ADDITIONAL 1 SECOND DELAY DURING 
THE SCOPE LOOP, . 


ee te Ge TO VO 


IN GFNERAL EACH SUCCESSIVE TEST ASSUMES ALL 
PREVTOIS TESTS WORK, BYPASSING ERRORS ~ 
EAN RESULT IN CONFIJSING SITUATIONS : : 

IN TRE SETUP OF MORE COMPLEX TESTS, 


ee G8 Ge Ce 


5, DISK PACKS | 
ONLY USE DISK PACKS FORMATTEN BY THE DGC DISK 
- PACK FORMATTER PROGRAM, THE DIAGNOSTIC PROGRAM 
WILL wRITE OVER MOST OF THE DISK SURFACE, 
THE FORMAT MODE IS NNT CHECKED, 
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=e ce te ae ve 


6227 

7 2ya/ 

: | / 6273 
G2P2Y ~ Bee 
J4S [77 O/ 
te BT STL 
{50 fCoCeevre? 


Ash} 2 7 Aol) . 


ye rbot 7 TY 


a @nas 


AAVAL 
AAAAZ 
VAGAS 
AAARS 
nanas 
AABAG 


AAC SS 
AAN46 
WAR47 
annsa 
2Aa5i 
aaanse2 


vaass 
AAA54 
~aass 
aunedseé 
“ans? 
— gaaka 
nangs 
“uanb2 
nan&s 
ARABS 
nvanéSsS 
ARABS 
“AAAG7 
“van7yy 
naa7i 
unn72 
AAA7T3 
“aa74 


wan75 
aaa7é 
A077 
nALaa 
nALAL 
PALAS 
waLta3 
MALS 
anias 
AALUE 
Onya7 
AWLiA 
anit 
anii2 


“@Ali1s 
AAL1I4 
“vatis 
@A116 


MAIN 
anagal 


aas776 
aAaAGeSst 
aAn2ans 
AN2244 
uAnA22e4aS 
vVAB4S12 


aAAnaAdsS 
AAAALE 
annagna 
narena 
NARAUA 
AAAAAG 
vnauaga 


AAAALRA 
aAsnaaa 
iaaaana 
14200040 
ugaaas 
BABABD 
papana 
vAUnALA 
VAAAZA 
UAAAGA 
UAnLAA 
AAnH2AA 
nan4an 
nayaua 
An2AUA 
una4aaga 
ALAAUA 
Y2nAKG 
QABAH5A 


177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 


an62si 
GA6232 
MA6235 
CA62354 


eLOC 1 

IRET 

INIT 

JMP OTS 

JMP 63833 

JMP 01873 
TS3 Ai 

eL NC 4§ 

EGGS 
EGGS3 a 

A 

a 

a 

@ 
eTUS 4) 

4nAGA 

inaaaa 
4 4Annaa 
UNTBIT? { 
KB1L43 2 
KBi3ss 4 
KBi23 i2 
KBii:- 20. 
KBi1A? 4a 
KB93 1aa 
KBB 2an 
KB78 404 
KB68 1AAG 
KB58 2nA 
KB4? . 4AaB 
KBS8 1Maan 
KB23 2uaga 
KBis,TuUde! 
Z2B148 1777758 
ZBiL33 177778 
7B123 177767 
ZBii8 177757 
ZB1i83 177737 
7898 177677 
7BR8 177577 
2873 177377. 
TRS 176777 
7853 175777 
ZB43 173777 
2833 167777 
2821 157777 
7Bi8 137777 
TRCLS RECL®@ 

RECLI°- 77 

RECL2 

RESLS 


SINTERRUPT RETURN 
INITIALIZE 

960 TO 48 

SET ADOR TO 33 
sSET ANDR TO 73 


SHEN FLAG 


OEVICE CODE THIS RUN 
gNOT USED 

#4 OF PASS THIS RUN 
VRETURN ADORESS 


a4 ABAS , 


“al1i7 
wai2a 
AALlAl 
AAL22 
WAL2AS 
AAL24 
AAL25 
“A126 
AAL27 
AAL au 
AALS1 
BA132 
AAL33 


A154 
HAi135 
—AAL36 
“aala7 


anian 
“AL 44 
19142 
"01.43 
way4aa 
narasd 
“ayq4s 
AA 47 
aatsa 
Qa15)i 


YAaLS2 
GALS” 


An{54 
aaid5s 
~ALSE 
aaLS7 
GAaALHbA 
WVALBh 
aAaALA2 
vaALAS 


YPAL64 


GALAS 


MAIN 


AAnAADS 
AANANT 
AQDAL7 
AABAS7 
VnRA7T7 
Aaay77 
AARST7 
UAA777 
“A1L777 
“A3777 
AA7777 
A17777 
U37777 


aLuWu42 1 
“otaaea 
U4S2104 
1Aa2?1A 


”A52525 
1752752 
123456 
123456 
LAYPUA 
AAAAHA 
AAAAAA 
VE2ANA 
AKRUAARA 
YVauAaLL 
ARAAUA 
“VAAAUA 
AAAASA 
AAUVNCA 
UAAAKA 
wvnaAnaAuaA 
AABBAS 
16UA37 
HBUASS 
1777ua 
naaana 
AA5G613 


C3: 
C72 
C178 
C375 
C773 
C1773 
C3778 
C7773 
C1777% 
C37778% 
C77773 
CAI7s 
C637 % 


BIT13 
RIT?3 
RIT43 
BITS: 


C25758 
C52523 


RANDOMS 
RELRAN3 


TEMPS 
TIMES 
TIMELS 
KDB $ 
OTYPES 
MDSKS3 
TESTU 
TINUIM 3 
CDSK? 
CYLs 

HEADS 
SECT? 
BUFF 3 
MSK1% 
APIO?’ 
MSK23 


ITRCNT?2 


STALL 


3 

7 

17 

37 

77 
177 
377 
777 
1777 
3777 
7777 
17777 
37777 


ALA424 
22142 
Aa?ina 
1H4214H 


A52525 
125252 
123456 


>) 


PRGEND 
168037 
AKBAASS 
1777a3 
“ 

eATl 


123456 


PUSCART, LR2311, 1522314 
SISSUNIT W, 1481, 


, 981i s UNIT @& 
§ L4e15 = WNIT @ 


a 


H 


{ 
{ 


- & AAAS 


AQA166 
AALK7 
nal7v 
AAL71 
aani72 
AnL7S 
mai74 
Aai75 
AaL76 
"WVat77 
nazae 
vA2AL 
BAAN2 
cAa2as 
G2A2Kn4 
AA2A5 
QA2AG 
GAQUN7 
AA2ZLA 
aan2eii 
@A2ZI2 
vagis 


QA214 
“n“A215 
an2i6 
AP217 
Aa22Aa 


AA221 


vA222 
AA2Z25 
an2e2da 
AA2Z25 
WA2Z26 


MAIN 


AABARSG 
AADAAHS 
AAUAKA 
YAaALt 
“vaualte 
AAAALS 
AAAALA 
unaasa 
AARBASS 
AANnASH 
AanAGA 
~AAAGBS 
AnnATA 
vAaAvI2A 
VAALS7 
uvaays7 
QPAN27T7 
n~An312 
VARSL7 
AAnane 
AAUVA2A 
1774ua 


177440 
vn{ sun 
aAZzeua 
APULAA 
A740aR 
AAAASG 
47 4RAAA 
vana7a 


024047 
u2n176 
1A6AL4 
An2245 
UA2Z244 


C42 4 

c53 5 

C62 6 

Cit: {1 

C123 12 

C153 15 

C163 16 

C3As 3a 

C33: 33 

C368 36 

C6At 62 

C633 63 

L7Aa3 70 

C1203 124 

Ci37? 137 

Cis7? 157 

C2778 277 

31223 34? 

C3173 317 

c4ae3 402 

L42n% 420 

017743 1774Aa2 

M4An3 ° =4A00 

Ci4pn3 1400 

C36AAs 36a 

C2n4H: 2an4aa 

C74K: 74900 

C1i4aKe,TU+3 

C17 4K3 1740208 

CiAgAskB4 

REGIN:S LDA 1,EGGS+¢i 

~ LDA a,C3S8 

SUR& 0,1,SZR 
IMP @1873 
JMP @I839 


a ana 


VALO7 
VARI 
An? s]4 
YA232 
AAYV3S 
(A234 
VAQS5 
“P2s6 
’A237 
“A2au 
nA24)} 
AA2462 
ViADAS 
VvA244 
vaeasd 
YA246 
A247 
vaedsu 
ViAPS4 
vAaAZh2 
OR25S 
AAQLKS 
AYV255 
VA25H 
~vAI57 
“e2BA 
AA2Zé4 
VA246?2 
AA2ZHS 


~MAIM 
ARS5SOS45 
VASK22 
“as7u4 
AYS7AKR 
UA57 {A 
uads711 
YASTE64 
AAHRUA 
AAGAZ7 
VAHABA 
VAGRS5 
Vab{oS 
AGHKOBS 
“WU5557 
WASSEA 
UnBAUG 
PA6453 
“UAGBALA 
A~AS449 
AAS6S55 
“FA1S52 
AAS722 
VA5217 
Yah?76 
CAKASA 
AASSL1 
HAK254 
“ADSAS4A 
BAHADT 


VAAZ4{ 
PAH2ZaA 
YUR249 
“wAnHAaS 
“LAAASS 
¥AB253 
VAHIPbS 


WUAB2SA 
wnh247 
VQA?P27 
AMODIIU 
VAbASIS 
“vAe?232 
AABESA 
“UABAIS 
V2A02785 
FAH? SE 
WAGB?AAA 
ViPH25)4 
YR6?P56 
UAGB257 


VAB2AAAD 


“WA6251 
VA6262 
VA6254 


IWAITS 
JeSSFK3 
I,RCAaS 
TeRC1LS 
T.RC23 
7,RO33 
Y,Iw7: 
TeADSKS 
ISETS 
J.SETPS 
TeSTUPS 
J eFHAS 
T.LON3 
TS338 
Y1S733 
1.53 
ICRLF? 
JMESS3 
ITeINTI? 
YSTB3 
TLEHI3 
1,03 
TRANS 
IGEN 
TRFANS 
IWRTS 
TCHK 3 
rons? 
T,LOS 


2NUSR 
eOUSR 
eDUSR 
eDUSR . 
eOltSR 
eOUSR. 
eDWSR 


WAIT 
eSSEK 
eROLA 
ek CLI 
eRCL2 
eROLS 
oIWNT 
eADSK 
eo SET 
esFTP 
eSETUP 
eE HALT 
eL OOP 
0S3d 


S79 


ook 
CRLF 
MESS 

e INI 
STAR 

eh HY 
2GCAkY 
RAN 
eGEN 
eRFAN 
eWRITE 
oe CHECK 
eDASEK 
eLUPN 


SETUPZJSR ®I,STIIP 
SETPLEJSR @],SETP 
FRALTSISR 4 ,EHA 
LonPeJSR e@7,LQON 
NASKPS5d ; 
ERLTSJSR @T.EH! 
LOOPNsJSR @I.Ln 


MESSAGEEISR *#IMESS 
PCRLFSJSR @ICRLFE 
WATT3JSR OF .WATT ~ °- 


SSEEKsISR 
RECLASJSR 
RECLIsSISF 
RECL2=JS¥# 
RECL 3s JSR 
TTRw¥TEISR 
GANSKeJSR 


©1.,SSEK 
@T RCW 
©] RCL 
@T,PC2 
®J,RCS 
®T,[wT 
OJ ,aAnsk 


SEEKSJSR @1,S 
INTTZJSR ET.INT 
GENDAT=SJSR @IGEN 
REANSJSR IRF AN 
WRITESJSR OJ] KRT 
CHECKeJSR 6ICHK 
DOSEKSJSR @1N0S-- 
NORWaJSR €1,N0 


eENT 


ABA7 


QA4aH 
“uA4anl 
“n4n2 
WASAS 
“AnN404 
Anaad 
VA4SRG 
OA407 
vaAdiu 
GaA4AL 4 


“Aa4i2 
GQa4als 
ABA4A1L4 
“0415 


mA416 
‘AA417 
ga4on 
A421 


“Aw422 
“A423 
2A424 
Aa425 


CA4S26 
¢A427 
GA43B 
QA4S31 


MA432 
VA4SS 
VA4S4 
AAA435 
“A436 


“WA437 
“naan 
VAs 
VA442 
AA44S 


“ad4a 
aA445 
aa446 
AA447 
02456 


¥va451 
aa45s2 
90453 
A454 
en455 
GAaA456 
@0457 


aMAIN 


APAnSUA 


AAGB252 
VW24046 
12520u4 
AAGSAS 
v2arsa 
1AYAA5 
nase5i 
BAUaUWS 
1276620 
U4ay5a 


Unbeai 
“AKR37EA 
AAG2Z4P 
“UAG24S 


7A6244 
VE635RAa 
AAG624?P 
GA6?P43 


wag24)§ 
463533 
WAGE 42 
~AG243 


AAH24{ 


“W63735 


UAB242 
076243 


nAb6241 
ABUAAUA 
{ALAS 
YA6249 
uUAG243 


ARb6245 


“614353 


1ALAGS 
Anb6242 
AA6245 


WAG6241 


Y62433. 


1A1aAnG 
AURnG?242 
“AE2435 


YVMOH243 
{a2aue 
“62033 
065433 
122434 
PAG242 
GA6243 


STARTS 


A123 


A23 


A53 


A63 


A7% 


ABR 


eLOC 404 


PISTB 
1,EGGS 
1,1,S2ZR 


MOV A 


SUBZR 
STA 1 


SETUP 
SKPDZ 
EHALT 
LOnP 


SETUP 
SKPBZ 
EKALT 
LOOP 


SETUP 


- SKPB2Z 


EHALT 
LOOP 


SETUP 
SKPDZ 
EHALT 
LoOoP 


SETUP 


DIA A, 
MOV @, 


FRALT 
LOOP 


SETUP 
NIB a, 
MOV a, 


EHALT 


LOOP . 


SETUP 


DIC @, 
MOV OA, 


FHALT 


- LOOP 


SETUP 


ADC a, 
NOR A, 
2OSKP 
SUBZ# 1,4,SZR 


DIB 1 


EHALT 
LoOnP 


Ai~2 
LDA a, 
2%,SNR 


NTYPE 


-1,1 
,OTYPE 


OSKP 


NSKP 


a 
a,SZR 


DSKP 
A,SZR 


NSKP 
a,SZR 


4) 
DSKP 


Pig Bs 


PIF PARAMETERS NOT YET Sr ECE EER: 


900 IT NOW, 


SCHECK SELD BUS LINE 
SKIP IF LINE HIGH 
SDSKP HAS SELD GROUNDED, 


YCHECK SELB RUS LINE 
ISKIP IF LINE HIGH 
2DSKP HAS SELB GROUNDED 


SCHECK DISK PACK BUSY 
SKIP IF BUSY &@ 
m"DP BUSY" STUCK ON 


CHECK DISK PACK DONE 
SKIP IF DONE Aa 
7"DP DONE" STUCK ON 


#CHECK I/@ DATA LINES 
JOTA TN DEVICE @ 


IGROUNDED DATA LINE(S) 


YCHECK CA REGISTER FOR 
IZEROS AFTER “RESET" 
SPOSSIALE FAILURE OF 
JOR THE REGISTER, 


"RESET" 


CHECK DISK ADDRESS REG, 
IFOR ZEROS FOLLOWING JORST 
SFAILING REGISTER IC OR 
SPOSSIBLE FAILURE OF "RESET" 
SOR “RESET S$". 


TRY TO LOAD CA WITH 

HALL ONES 

1LOQAD CA REGISTER 

IREAD IT BACK 

SCHECK "OP DATOB", | 
s"MPNATIB", CA REGISTER, 


FAND DATA PATH THRU MUX'S, 


BASHA 
“nasi 
Qa4sh2Q 
v%463 
Yasha 
“~n465 
vas66& 


An467 
Aan47A 
“ad7t 
HA472 
“A473 
YA474 


YA4a7d 
AA476 


.AA477 


vOsis 


Wasaga 
HA5Ul1 
VGA5AQ 
PASAS 


ARDAS 


CASAS 


VASA 
UvA5A7 
wA514 
¥ASII 
AANL2 


“Asia 
WASAS 
wasi6 


-" Gadst7 


? 


UA 
WA521 
AaAS22 


00523 


AAS24 
wa5es 
An526 
ans27 
AA530 
ya531 


“¥Aa5S2 


uAs33 
“us34 
nAa535 
“A536 
00537 
Aasgda 
vasa} 


Anb24i\ 
ra2aua 
n620A83 
W6E433 
125aH4 
AAG24S2 
WAG243 


VAQ6244 
LAQAAA 
WA 3ZA3S 
VA5438 
1?5au4 
AAKB24? 


YUAH241 
ya2nau 
UB3aASS 
AbOS33 
122414 
AAK242 
UAG24S 


WAG?P 44 


LA2AUE . 


vf2033 
AB2QA77 
0765453 
{A5avs 
WAh242 
UA6P43 


ANG6241 
LA2AUH 
WB3ZAGS 
WADA77 
966433 
125AU4 
A~A6242 
AN6243 


HA6243 
122520 
YUB2A3S 
Q65439 
1224164 
YVAG242 
n“AB24S 


“nba 
O2uNbA 
Yh2A33 
V65433 
122414 
VA6249 
Y~AGB24S 


AQ$ 


ALA: 


ALi: 


A125 


A138 


Aj4s 


SETUP 
ADC a,A 


00B 4,NDSKP 
NIC 1,NSKP 
MOV 1,1,SZR 


EWALT 
LONnP 


SETUP 
ADC a,o 


noc a,nsKp 
DIR 1,DSKP 
MOV 1,1,SZR 


EHALT 


SETUP 
ADC a,a 


noc a,NSKP 
OIC 1,NSKP 
SUBH 1,%,SZR 


FHALT . 
LOOP 


SETUP 
ADC 9,4 


NOR 4,NSKP 


IORST 


OIR 1,NSKP 
MOV 1,1,828 


ER ALT 
LOOP 


SETUP 
AGC A,@a 


noc A,NOSKP 


IORST 


MIC 1,0SKP 
MOV 1,1,SZR. 
FRALT 


1.00P 


SETUP 


SURZL A,a 
NOR @,NSKP 
OIA 1 NSKP 
“SUR 1,4,SZR 


En ALT 
LOnP 


SETUP 


LOA A,KB14 
OQR 0,0SKP 
O0IB 1,NSKP 
SUBS 1,8,SZR. 


EHALT 
LonP 


‘ 
SEE IF DOR LOADS 

INISK ADNRESS REGISTER 
#LOAD CA REG, 

BREAN DISK ANDR REG, 

#IT SHOULD STILL BE ALL O'S 


SEE IF NOC LOADS THE 
sCA REGISTER 

LOAN DISK ADOR REG 
SREAND CA REGISTER 

CA REGISTER SHOULN 
FREMAIN ALL ZERO 


3SEE IF THE DISK ADDRESS» 
REGISTER EXISTS 


- FLOAN IT WITH ALL 1°'S 


sREAN IT BACK 
SCHECK REGISTER AND 
SDATA PATHS THROUGH 


“S$ THE BMUX'TS 


?SFF OIF IORST WILL 

CLEAR THE CA REGISTER 
LOAD IT WITH ALL 13'S 
ICLEAR IT TO ZEROS (RESET) 
READ IT BACK 


tSEE IF IORST WILL 

CLEAR DISK ADNRESS 
PREGISTEP, LOAD ALL 1'8 
PCLEAR ‘TN ZEROS 
SPREAD RACK 

1(S1,52,84,SB8,ARE CLEARED 
IVIA "RESET" THRU "RESET §") 


$ - 


sTEST CA REGISTER FOR 
PSINGLE 1 BRITS 

ILMAD "Cast 

SREAN CA REGISTER 
sACHU=G00N 

FACLSHAD 


JTESY CA REGISTER FOR 
SSINGLE 1 BITS 

7LQAD- “CAyai 

TREAD CA REGISTER 
3AC@=GO00 

3ACiesBAD0d 


a @4ag 


QAS42 
OA5435 
a544 
@0545 
@a546 
_ #H547 
70550 


anssi 
yA552 
Q@H553 
AAS454 
AA555 
VASSG 
@AaS57 


Qas56u 
yasel 
20562 
PA5HS 
LEE! 
An565 
"A566 


20567. 
- BAS7H 
aas7i 
AaAd72 
- Wa573 
AA574 
anS75 


0a576 
BA577 
AAGAG 
Hnsal 
AAGAR 
 @n6as 
.. QABN4 


AA6AS5 
AAEBUG 
YA6A7 
AAG1A 
“0611 
vaAb1L2. 
AAa613 


MAIN 


“n624i 
B2nRG6I 
“62033 
065438 
122414 
AAGB2A462 
uA6243 


unb241{ 
A2AN5?2 
AB2A33 
065433 
1224j4 
“WAG242 
ar624s3 


AAG241 
A2AABS 
N620A33 
“65433 
122414 
UAK242 
ANG243 


AAG244 
A2ZAAGS 
“62AaA3838 
4654353 
122414 
AAGB242 
WAGB24S 


VAB244 
a2va6s 
AB2ASS 
0654353 
122414 
AA6242 
An6243 


QA6241 
AZUA6G 
62053 
@65433 
122414 
ANn6242 
AAG6248 


AL6s 


A173 


ALB8 


A193 


A2HKE 


A213 


SETUP 

LDA @,KB1i3$ 
NOB @,OSKP 
O18 1,DSKP 
SUR# 1,8,SZR 
EHALT 

LOOP 


SETUP . 
LDA “4,K812 
DOR A,NSKP 
OTR 1,0SKP 
SUB# 1,6,/SZR 
EWALT 

L.ooP 


SETUP 

LDA A,KBit 
NOB 8,1SKP 
DIB 1,NSKP - 


SUB& 1,6,SZR 


EHALT 


’ LOOP 


SETUP 
LOA #,KB12. 
NOR A,NSKP 
DIB £,NSKP 
SUBH 1,W,SZR 
EHALT 

LOOP 


SETUP 
LDA @A,KBI 
NOB A,NSKP 
OIB 1,0DSKP 
SUB# 1,8,SZR 


-EHALT 


LOOP 


SETUP 

LOA A,KBB 
DOR @,NSKP 
DIR 1,NSKP 
SUB4 1,8,S2ZR 
EHALT 

LOOP 


-9- 


STEST CA REGISTER 
SSINGLE { BITS 
SLOAD "CALS" 
sREAD CA REGISTER 
7ACUW2G00D0 
yaCisBaDd 


ITEST CA REGISTER 
YSINGLE { BITS 
LOAN "CAL2" 
SREAD CA REGISTER 
7AC@cGOOD 
,ACisBAD 


TEST CA REGISTER 
PSINGLE 1 BITS 
ILOAN “CALL 
SREAN CA REGISTER 
yACUsGNO0D 
7AC1SBAD 


STEST CA REGISTER 
SINGLE 1 BITS 
LOAD "CALAN 
FREAN CA REGISTER 
yacasGnon 

FACIL EBAD 


STEST CA REGISTER 
PSINGLE 1 RITS 
FLOAD "CAG" 

FREAN CA REGISTER 
yACBHBsGO0D 
pACiBBAD 


te 


TEST CA REGISTER 
SINGLE 1 @ITS 
FLOAD "CAB" 

REAM CA REGISTER 
+AC@2eGO0n 
PACi=ZBAD 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


a @vian os, 


ANGL4 
“A615 
n0616 
VAB17 
VA62a 
“YAG2Q! 
ARG622 


“A623 
VAK24 
“nb625 
PNG? 
AAG27 
AAGB3A 


“ABS! 
¥AG3S2 
CAB3S 
VAGBS4 
ARAG3S 
YVABS5 
AAGK37 


PAKB4A 
“ArbHA4AL 
VvAzB42 
WAKAS 
vab44 
WAb45 
A646 


10647 
 ANGH5G 
vaod5i 
“A652 


A653. 


GA654 
nn655 


VaAb5S 
Vn657 
AAKBBY 
AAbbL 
Yass? 
VAGAS 
ZAHAS 


MAIN 


Un624)1 
A2AAb7 
YV62033 
V65433 
122414 
2A6242 
AAG6243 


AA6241 
V2ARAS’S 
@61433 
265433 
122414 
AAG242 


“VAGB241 
A20a7 1 
VAQZASS 
H65439 
122444 
“Uh6242 
426243 


UAGB241L 
A2UA72 
U62033 
N65433 
1?2414 
*A6242 


UAGB24S 


“AG241 
V2ua7a 
AG2033 
N65433 
122414 
YuA6242 
AA5243 


UAB? 4] - 


A22A7 4 
VR2083 
065433 
122414 
vn624? 
AU6243 


A223 


A235 


A243 


A255 


SETUP 

LOA @,KB7 
DOR @,DSKP 
DIA 1 NSKP 
SURS 1,4,5S7R 
ERALT 

LOOP 


SETUP 

LDS a,NSKP 
NIB A,NSKP 
NIB 1,NSKP 
SUR® 1,4,SZR 
FHALT 


SETUP 

LOA A,KBS 
NOR A,NSKP 
OFR 1,0SKP 
SUB& 1,0,S7R 
FHALT 


LAOP. 


~ SETUP 


LDA 4,KB4 
NOR A,NSKP 
NIB 1,0SKP 
SUB& 1,4,SZR 
EH4LT 

LONP 


SETUP 


LOA @,k83 
NOK A,DSKP 
DIR 1,NSKP 
SuR&® 1,0,SZR 
ERALT 

LOAP 


SETUP 

Loa A,Kb2 
NOR A,NSKP 
NOIR 1,NSKP 
SUBs# 1,4,SZ2R 
ERALT 

LOOP 


-10- 


TEST CA REGISTER 
PSINGLE 1 BITS 
PLOAD "CA7"™ 

SREAD CA REGISTER 
sACHBGNON 
yaCi=bad 


TEST CA REGISTER 
PSTNGLE 1 BITS 
SLOAN "CAG" 

SREAD CA REGISTER 
rACasG00N 
BACI2BAD 


ITEST CA REGISTER 
SSINGLE ff BITS 
FLOAD "CAS" 

sREAD CA REGISTER 
rACUsGnon 
sACisBAD 


ITEST CA REGISTER 
PSINGLE !{ RITS 
TLOAN "CAG" 

7REAN CA REGISTER 
yACM@sGNoN 
sACisBAD 


ITEST CA REGISTER 
SSINGLE 1 BITS 

mL OAN YOAg! 

READ CA REGISTER 
rACaAsGNON 
SACLERAD 


TEST CA REGISTER 
SSINGLE 1 BITS 
rLOAN "CA2" 

PFREAN CA REGISTER 
,aACHzsGN0N 
PALLSBAD 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


a 0011 


@8665 
Q@A6G66 
00667 
AA674U 
A674 
22672 
AAG7S 


Q@A674 
08675 
was76 
@A677 
AA7TAN 
QA7AL 
wA7A2 


AATAS 
AA7TA4 
AA7405 
@a7aG 
QAa7a7 
QA714 
aa7il 


@a712 
@A71LS 
wa714 
GA715 
0a716 
Oa717 
UA720 


Qa721 
@n722 
GaAa723 
AA724 
BA725 
20726 
QA727 


VA7 SH 
“A7si 
WA732 
QA7383 
A734 
@A735 
WA7S6 


MAIN 


MAG243 
V20a54 
M62035 
654335 
122414 
QAG242 
AA6243 


APAB24L 
122629 
062033 
65433 
122414 
AAG242 
BA6243 


QaA6244 
{A212a 
H62033 
465435 
122414 
QA6242 
av6248 


AAB241 
A2ZAA7S 
“620338 
A65433 
122414 


A6G242 


AnN6243 


An6241 
a20076 
@62033 
465433 
122414 
8A6242 
@A62438 


An6241 
A2nA77 
A62033 
¥65433 
122414 
AAG6242 
AA6245 


A283 


A293 


ASA3 


ASYS 


A323 


ASS 


SETUP 

LDA 4,KBi 
ODOR A,0SKP 
DIR 1,0SKP 
SUB# 1,8,SZR 
EHXALT © 
LOOP 


SETUP 

SUBZR A,A 
DAR @,DSKP 
NIB 1,NSKP 
SUB# 1,8,SZR 
EHALT 

LOOP 


SETUP 
ADCZL a,@ 
DOB a,DSKP 
NIB 1,0SKP 


SUBS 1,4,SZR. 


EHALT 
LOOP 


SETUP 

LDA @,Z7814 
DOR A,OSKP 
OIB 1,0SKP 
SUB# 1,4,SZR 
EHALT 

LOOP 


SETUP 

LDA @,2ZB15 
DOB @,NSKP 
DIB 1,0SKP 
SUB# 1,80,SZR 
EHALT 

LOOP 


SETUP 


LOA 4,72812 
DOR @,0SKP 
DIB 1,0SKP 
SUBH# 1,6,SZ2R 
EHXALT 

LOOP 


apie 


ITEST CA REGISTER 
SSINGLE 1 BITS 
LOAD "CA" 

FREAD CA REGISTER 
yACOSG00D 
PACLSBAD 


FOR 


STEST CA REGISTER 


SSINGLE 1 BITS 
PLOAD "CAG" 


_YREAD CA REGISTER 


yACUeGO00 
SACI=BAD 


TEST CA REGISTER 
SINGLE @ BITS 
FLOAD 177776 
FREAD CA REGISTER 
yACOBzGOOD 
PACLEBAD 


TEST CA REGISTER 


SINGLE @ BITS 
ILQAD 177775 
YREAN CA REGISTER 
¥ACU2GN0D 
SAC{=BAD > 


ITEST CA REGISTER 
SSINGLE @ BITS 


-BLOAD. 1777758 


FREAD CA REGISTER 
yACAaGOOD 
SACL SBAD 


JTEST CA REGISTER 
ISINGLE 4 BITS 
ILOAD 177767 


TREAD CA REGISTER. 


rACOxsGOON 
PACLBBAD 


FOR 


FOR 


FOR 


FOR 


a “anie2 


QA737 
A”U7 46 
va7al 
AA7 42 
QaA7Z74&3 
Aa7z4a 
WA7 45 


v.07 46 
AA7 47 
@A7540 
WAa7S1 
QA752 
aA753$ 
AA754 


QA755 
BA7AAR 


AAT5S7 


va7zvAU 
MA76H1 
va7h2 
 9Aa7z7es 


CA7b4 
Qa765 
A766 
(44767 
QPATTA 
 Ga77i 
wa772 


Aa773 
AA774 


fA775. 


Ua7z76 
“A777 
viean 
vival 


ALAA 
YVIPAS 
ALAAG 
wi Aas 
VLAAG 
ALAA7Z 
viala 


MATIN 


~a624) 
B2aarua 
A6B2A33 
065433 


172434 


Aho242 
Anb245 


AAB241 
AQUI 
YU62833 
PA5433 
122444 
A~A6242 
AAG24S 


AnG2 41 
v201a2 
WE28338 
ME5433 
122414 
WAGB249 
VA624S 


AABD AL 


Y2adus 


MA2A33 
v6543538 
{22444 
UAK242 
AAG6243 


AN6241 
a2guqaa 
nAK2A33 
V65433 
122454 
AA6242 
Vvab243 


YAB244 
UPAL CS 
UBOASS 
765433 
122414 
YWAKR242 
“vAb624S 


A343 


ASS: 


A362 


A373 


ASB: 


A39: 


SETUP 

LNA A@A,7H11 
COR A,NSKP 
NIR 1,NSKP 
SUBS 1,”,S7R 
ERALT 

LOnP 


SETUP 

LDA A,7B816 
OoB 4,0SKP 
DIR 1,NSKP 
SUPR& 1,%4,SZR 
EHALT 

LOOP 


St. TUP 

LDA @A,7Z89 
DOB 4,NSKP 
DIR 1,NSKP 
SUBS 1,@,S7ZR 
EWALT 

LOOP 


SETUP | 
Ln4 A,288 
MOR A,NSKP 
DIR 1,MSKP 


SUB# 1,4,S5ZR 


EMALT 
LOOP 


SETUP 

LOA A,787 
Naw A,NSKP 
OIB 1,NSKP 
SUBS 1,4,SZR 
ERALT 

LOAP 


SETUP 

LOA “A,766 
QNaR A,NSKP 
NYR 1,NSKP 
SUR# 1,4,S7ZR 
EWALT 

LOOP 


SYEST CA REGISTER 
ISINGLE @ BITS 
PLOAD 377757 


PREAN CA REGISTER 


7AC@2G000 
9AC1eBAD 


STEST CA REGISTER 
SINGLE ZERO BITS 
LOAD 177737 
READ CA REGISTER 
rACH=GNDN 
VACiSBAD 


sTEST CA REGISTER 
SSINGLE ZERO BITS 
ILQNAD 177677 
SREAD CA REGISTER 
rAC@eGN00 
9ACis8BAD 


PTEST CA REGISTER 
SINGLE @ BITS 
LOAN 177577 | 
FREAD CA REGISTER 
*ACHaGO0N 
PACISBAD . 


ITEST CA REGISTER 
PSINGLE ® RITS 
wLOAN 177377 
SPREAD CA REGISTER 
rACuHaGOON 
sACLERAD 


TEST CA REGISTER 
tSINGLE ZERO BITS 
LOAN 176777 
PREAM CA REGISTER 
sacveconon 
PACLAKAD 


ee 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


a AALS 


a1ai1 
ni@le 
¥Iin1S 
@igia 
@iais 
aLe16 
Hidi7 


ajsa2d 
“inet 


Hi622 


W1028 
H1A24 
w1ia25 
01026 


@1227 


aia3se 
vind. 


91032 


n1a33 
Q1A34 
a1H35 


1036 
Aja37 
A1AaA4A 
awa 
n1e42 
n1ia43 
ain 


“W1N45 
“1”46 
01447 
ALA5SU 


“@IB54 


z 


#1@52 
01855 


01054 
A1wW55 
A156 
AL@57 
A1A6A 
aieé) 
ALHG62 


MAIN 


UnAb244 
W2a1u6 
AB2033 
n65433 
122414 
~A6242 
AA624S 


aneeal 


APBiA7 
062053 
a65433 
122414 
AaA6242 
BAG243 


aAné2edi 
Meurtia 
A62038 
65433 
122414 
nYA6?42 
ANG243 


AAG? 41 
n2niis 
A62033 
065433 
122444 
YVAGBA4? 
AA6243 


“AGB241 
M2ni12 
A62A383 
A654335 
122414 
AAG242 
nA624S 


ANB2461 
1a22en 
B62A338 
065433 
122414 
AA6242 
aA6243 


A4A8 


A41$ 


A423 


A432 


Aa4E 


A453: 


SETUP 

LNA @,Z685 
DOR A,DSKP 
OIR 1,0SKP 
SUB# 1,0,S2ZR 
EHALT 
LOOP 


SETUP 

LDA @,7B4 
NOP @,NSKP 
MIB 1,0SKP 
SUR# 1,6,S7R 
EW ALT 


‘LOOP 


SETUP 

LDA A,783 
NOR A,NSKP 
MIR 1,NSKP - 
SUB# 1,0,S7ZR 
EHALT 

LONP 


SETUP 
LDA @,7B2 
NOB 4,0SKP 


MIR 1,MSKP 


SUR® 1,8,SZR 
EHALT 
LooP 


SETUP 

LOA @,7581 
NOB @,NSKP 
NIB 41,NSKP 
SUBH 1,4,S2ZR 


-EHALT 


LOOP 


SETUP 

ADCZR A,A 
NOB A,NSKP 
DIB 1,NSKP 
SURH 1,8,SZR 
EHALT 

LOOP 


ats 


ITEST CA REGISTER 
#SINGLE ZERO BITS 
tLOAD 175777 
READ CA REGISTER 
yACOcGOON 
pACISBAD 


?TEST CA REGISTER 
ISINGLE A RITS 
#LOAND 173777 
PREAD CA REGISTER 


- sACBSGOOD 


yACIEBAD 


STEST CA REGISTER 
SINGLE A BITS 
7LOAD 167777 
FREAD CA REGISTER 
$ACB8=GO0D 
tACi=BAD 


ITEST CA REGISTER 
*SINGLE ZERO BITS 
FLNAD 187777 
IREAN CA REGISTER 
1AC@2G00D 
PACicSBAD 


ITEST CA REGISTER 
SINGLE @ BIT 
ILOAD 137777 
FREAD CA REGISTER 
yACTHASGOOD 


ACL 2BAD 


ITEST CA REGISTER 
SINGLE ZERO BIT 
ILOAD A77777 
SREANM CA REGISTER 
sACW=G000 

SACL SBAN 


FOR 


FOR 


FOR. 


FOR 


FOR 


FOR 


a AYI4 


vyCbS 
M1064 
¥412@65 
W1066 
ALQE7 
v1{e70 
ALY71 


V:1H72 
¥1ie7s 
C1074 
—WI1ATS 

“1076 
P1A77 
aAL1adg 


“AL1AY 
v3 4RQ 
“01103 
*11A4 
A11a5 
a91AaG 
“jyia7 


1110 
tii 
viii2 
vilid 


. ¥I11G 


v1115 
AL14b 


Vj117 
ALL2a 
AaLi21 
¥i1ee2 
01123 
AL124 
“1125 


A{126 
YL12e7 
@iiau 
CLisi 
“1132 
1133 
vi1s4 


MAIN 


~V6241 
1Aa2S52aa 
ABSASS 
ABG4345 
1224 14 
viA6242 
AAnKH243 


ANb24{ 
APUAGA 
O63A33 
ABG433 
122414 
AA6242 
WA6243 


UnAG24§ 
U2UAG 4 
AB ZAGSS 
66433 
122414 
UU6? 4? 
UAG243 


AAK2 4{ 
A2VAAG2 
VG3N33 
660433 
122414 
A”A~G247 
AYVG243 


NAG? 41 
APANGS 
AB3ASS 
PA66433 
122414 
A“W“6242 
AN6243 


AAG62 4§ 
“v2uned 
VE3ASR 
A66433 
122414 
“YA6242 
YA6243 


A468 


A473 


A4B3 


A493 


ASS 


AS: 


SETUP 


SUBZL 4,@ 
Noack A,NSKP 
OTC 1,NSKP 
SUBS 1,0,S2R 
ERALT 

L.onP 


SETUP 

LOA A,Kpl14 
Occ A,OSKP 
AIC 1,NSKP 
SuBs 1,0,S2R 
ER ALT 

LOOP 


SETUP 


LOA @,* BIS 


noc A,NSKP 
NIC 1,N§KP 
SUR# 1,4,S7R 
FRHALT 

LOANP 


SETUP 

LOA 4,KB12 
Nac aA,OSKP 
NIC 1,NSKP 
SURa 1,0,S87R 
EWALT 

L.QgP 


-§tTuP 


LOA 4,KB11 
noc a,NSKP 
NIC 1,9SKP 
SUR# 1,4,5S7R 
ERALT . 
LanP 


SETUP 

Lia a,KBiO 
NOC A,NSKP 
DIC 1,9SKP 
SUR4 1,4,SZR 
EHALT 

LOOP 


~14-— 


~FLOAD 


ITEST NISK ANDRESS 
?FONR SINGLE. 1 AIT 
usScyu 

FREAD BACK 
sAC@sGN0N 

gACLSBAD 


TEST DISK ANDRESS 
tFOR SINGLE 1 BITS 
#LOAN "Sc2" 

TREAN BACK 
7AC@2G000N 

tACL=BAD 


STEST DISK ADDRESS 
FOR SINGLE 1 RITS 
LOAN "SC4" 

PREAN BACK 
rACKSG6N0N 

BACIEBAD 


ITEST DISK ADDRESS 
sFOR SINGLE 1 RITS 
7LNAD "SCB" 

sREAND RACK 
sACA@SG00N 

*4C12B AD 


tTEST DISK ANDRESS 
FOR STNGLE 1 BITS 
7LOAN "Sq" 

SREAN RACK 
racw=sqgnan 

,ACLEBAD 


?TEST OFSK ANDRESS 
;FOR SINGLE 1 BRITS 
PLO AN "Sa" 

*REAN BACK 

FAC ASLOON 

SACI SBAD 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


a “A015 


he 


@1135 
01136 
@1137 
01144 
O1144 
@1142 
04143 


B1144 
B1145 
01146 
H1147 
@ii5a 
o1151 
@1152 


ALIS3 
a1154 
@1I155 
01156 
01157 
G1160 
AL1164 


@1162 
01163 
01164 
@1165 
01166 
81167 
B1170 


e1171 
@1172 
C1173 
1174 
@1175 
01176 
A1177 


AL2AaB 
a1eal 


a1202 


YVL2DR8 
01204 
AY2a5 
01206 


MAIN 


OA6241 
H2A865 
463833 
066433 
122414 
826242 
006243 


“UAG241 
A2AAGGS 
063433 
066433 
122414 
AM6242 


B@RE248 


WAG244 
A2AA67 
AG3IAS3 
966433 
122414 
WN6242 
226243 


CAb241 
A2UATA 
063033 
A66433 
122414 
AN6242 
¥WNA6243 


AAB2S44 
A2AA7 4 
A63A33 
066433 
122414 
AN6242 


AA6243. 


QAG241 
A2BA72 
065933 
VE66433 
122414 
AB6242 
AA6248 


A523 


ASS: 


ASA: 


A558 


A563 


A573 


SETUP 

LOA 6,KBS 
DGC @,DSKP 
DIC 1,DSKP 
SUB# 1,8,SZR 
ERALT 

LOOP 


SETUP 

LOA @,KB8 
noc 4,0SKP 
DIC 1,0SKP 
SUB& 1,4,SZR 
EHALT 


LOOP 


SETUP 

LDA 9,KB7 
DGC A,OSKP 
DIC 1,0SKP 
SUB& 1,0,SZR 
EHALT : 
LOOP 


SETUP 


LDA A,KBE6 
DOC A4,DSKP 
PIC 1,0SKP 
SUB& 1,@,SZR 
EHALT | 

LOOP 


SETUP 

LDA “4,KB5 
noc 9,0SKP 
OIC 1,NSKP 
SUB# 1,0,S2ZR 
EHALT 

LOOP 


SETUP 

LDA @,KB4 
DOC @,DSKP 
DIC 1,NSKP 
SUBH 1,0,SZR 
FHALT 

LOOP 


-15- 


“}TEST DISK ADDRESS 
tFOR SINGLE { BITS 


LOAD "S4" 


BREAD IT BACK 


7;AC@aGO0D 
sACisSBAD 


YTEST DISK ADDRESS 
FOR SINGLE 1 BITS 
—?LOAD "Se" 

READ IT BACK 


sAC@eGO00 
pACisSBAD 


TEST DISK APDRESS 
?FOR SINGLE 1 BITS 


LOAD "HOY" 


- JREAD IT BACK 


,ACHsGOOD 
sACiZBAD 


?TEST DISK ANDRESS 
FOR SINGLE 1 BITS 


PLOAND "“HDe2" 
FREAD RACK 
7;AC@2GO00N. 
¥,AC1e8BAD 


ITEST DISK ADDRESS 
sFOQOR SINGLE 1 BITS 


LOAD "HDA" 
sREAND IT BACK 
,ACasGa00 
sACL2BAD 


ITEST DISK ADDRESS 
FOR SINGLE 1 AITS 


LOAD "KDB" 
REAM IT BACK 
¥ACQ=GO00D 
pACY=BAD 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


a AAL6 


“1207 
Wi2in 
612141 
P1212 
v12t3 
ni2ia 

“1215 


wi2i6 
ai2i7 
wi22A 
~ AL1221 
A{272. 
P1223 
V:1224 


“1225 


“1226 
41227 
vi2su 
“123i 
1232 
a1233 


A1234 


v1235° 


n1236 
01237 
“1240 
12461 
Wi242 


01243 
ni244 
a1245 
21246 
41247 
Aj25yH 
vj25i 


¥v1252 
a1253 
“1254 
“01255 
vi256 
01257 
71268 


MAIN 


wVn6241 


U2NET73 
A63033 
“H66433 
122414 
ARXG242 
AX6243 


Wn6?244 
W2DaA74 
ABSUSS 
“664338 
122414 
BA624) 
UAB243 


VAG24] 
A2AAH54 
H63A33 
YA6433 
122414 
WAKB242P 
AAK2Z43 


MA6244 
142620 
YB3ASS 
066438 
122414 
UAnés242 
AAG243 


UPBA4)L 
1a212a 
UB3A33 
Yh643ss 
122414 
WP6242 
MA6243 


VAB24$ 
v2uva75 
WHA3IASS 
AR6433 
122414 
APRA2Z42 
A~LAG6243 


A583 


AGA 


A615 


A628 


A635 


SETUP 

LOA @A,KB3 
DOC A,DSKP 
DIC 1,0SKP 
SUB& 1,0,S7R 
EMALT 

LOOP 


SETUP 

LNA A,KBe2 
NaC A,O0SKP 
DIC 1,0SKF 


SUBR. 1,0,SZR. 


EWALT 
L GOP 


_ SETUP 


LOA @,KB! 
Noc A,OSKP 
NTC 1,NSKP 
SuBs# 1,0,SZR 
EHKALT 

LCOP 


SETUP 

SURZR AA 
NOC A,NSKP 
NIC 1,0SKP 
Subs 1,0,SZR 
EHALT 

LGOP 


SETUP 

ANCZL a,@ 
noc A,NSKP 
DIC 1,0SKP 
SUR# 1,4,SZR 
FHALT 

LOOP 


SETUP 

1.04 @A,Z7814 
Nac A,NSKP 
DIC 1,0SKP 
SUR& 1,0,52R 
FHALT 

LanP 


sTEST DISK ANDRESS 
SFOR SINGLE 1 BITS 
FLOAD “HN16" 

YREAN IT BACK 
pacezGN00 

SACI SBAD 


?TEST DISK ADDRESS 
#FOR SINGLE 1 BITS 
7LOAD "FORMAT" 
FREAD IT BACK 
ryacacGoon 

SACLSBAD 


STEST DISK ANDRESS 
SFOR SINGLE 1 AIT 
#LOAD "D1" 

tREAN IT BACK 
,ACH=GN0N 

#AC1=BAD 


STEST DISK ADDRESS 
7FOR SINGLE 1 ARITS 
LOAD "Da" 

SREAD IT BACK 
,ACKU=SGN0N 

PACLEBAD 


ITEST DISK ANDRESS 
SFOR SINGLE @-BITS 
m"SCi"sy 
JREAN THE REGISTER 
rAC@eGOON 
PACLEBAD 


STEST DISK ADDRESS 


FOR SINGLE 4 BITS 
r"SC2" = @ 

SREAN REGISTER 
pACASGB00N 

ACL aRAD 


=16= 


REGIE)STER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


REGISTER 


a Aa@i7 


» 


vi26l 
¥1262 
Hi263 
M1244 
1265 
A1266 
a1267 


AL274 
@1271 
“i272 
ul27s 
01274 
Q1275 
P1276 


@1277 
AL3suU 
ALSAl 
@1382 
¥13A5 
Vigna 
AL3A5 


AL3N6. 


“1307 
1314 
ALSii 
B1312 
W1I31S 


aisi14 


AG3i5 
@1i3146 


M1317 


M1320 
A1321 
#13522 
13238 


@{3ad 
M1325 
@1326 
01327 
M1334 
®13551 
613352 


MAIN 


ANO2 41 
V2A076 
0632338 
66433 
422414 
UAGB242 
~A6243 


anb624} 
U2UA77 
PE3A3S 
aA66433 
122414 
AAB?242 
AAB243 


Anb244 
A2aLAA 
M6 3A33 
ABG433 
122414 
2AC242 
~A6243 


CA6244 
A2viGBI 
WA 3ASS 
C66433 
122414 
NAG242 
aa624a3 


ON6241_ 


w2nja2 
WV63033 
“066433 
122414 
An6242 
AA6G243 


AABAAL 
YVPALAS 
A63aA3S3 
Vb6443 
{P2414 
AA6242 
AA6243 


A642 


A652 


A668 


A67% 


A6B3 


A693 


SETUP 

LDA “24,7813 
Don @,DSKP 
DIC 1,0SKP 
SuUR2 1,8,SZR 
EHX ALT 

LonP 


SETUP 

LNA A,7812 
Doc @,NSKP 
NIC 1,DSKP 
SUB4# 1,4,SZR 
EHALT 

LOOP 


SETUP 

LOA @,7B4} 
DNC #,NSKP 
DIC 1,0SKP 


SUBS 1,6,SZR- 


EHALT 
Lone 


SETUP 

LOA A,Z7B1@ 
NOC A,NSKP . 
NIC 1,NSKP- 
SUR& 1,%4,SZR 
EHALT 

LOOP 


SETUP 

LOA @,Z89 
hoc A,NSKP 
DIC 1,NSKP- 
SuB# 1,8,SZR 
EHALT 

LOOP 


SETUP 

LOA @,7BB 
poe A,0SKP 
NYC 1,0SKP 
SuBH 1,08,SZR 
EH ALT 

LOOP 


4 


ITEST DISK ANDRESS REGISTER 
3FOR SINGLE A RITS 

r"sc4a" s Q 

YREAD REGISTER 

yACGsGOO00 


~YACLSBAD 


ITEST MPISK ADURESS REGISTER 
FOR SINGLE @ AITS 

s"SscB" 3 | 

PREAN REGISTER 

7AC@2GN0D 

PACY=SBAD 


ITEST NISK ADDRESS REGISTER 
1FOR SINGLE @ BITS 

m"si" sc A 

TREAD REGISTER 

+ACG=GN0D 

FACISBAD: 


STEST NISK ANDRESS REGISTER 
*FOR SINGLE ZERO BITS 

"So" sa 

sREANM IT BACK 

3AC@8G00D 

PACLEBAD 


STEST DISK ANDRESS REGISTER 
SFOR SINGLE ZERO BIT 7 
"sg" 3 0 

TREAD IT BACK 

PACB2G0HO0N 

yACYBBAD 


ITEST DISK ANDRESS REGISTER 
IFOR SINGLE ZERO BITS 

r"Sse" so A 

YREAN IT BACK 

PACM=GNON 

SACL SBAD 


a AALA 


Y¥1333 
01334 
¥@IS35 
¥IS34A 
“1337 
¥1-340 
viid4i 


“#1542 
61543 
71344 
21345 
W1546 
vidd?7 
V1I50 


vidsi 
W1L942 
P1355 
ALS5A 
wish 
¥1356 
41357 


"Vy SHU 
v1356}4 
VISA 
61343 
41364 
“1565 
ni3&6 


wui1367 
vi1d79 
Vv1i3S71 
¥1372 
Vv1375 
V1374 
u13a7o 


Vv1576 
“W$d77 
y{ 4a 
ALA 
41402 
Yi4Ad 
AY and 


oMAIN 


ANb241 
VARS 
U“UB3AS3 
Wh64335 
172414 
“AAO242 
AN6243 


“~RH? 414 
v20145 
AB3033 
266433 
122414 
VAG24SP 
UAb2aS 


ARE? 4) 
V2uiV45 
AB SASS 
ABG64S3 
122414 
V”0A69 42 
AAGHZAS 


VWAH2 44 
ADQALAT 
ABIASS 
AB64S3 
122434 
AKb242 


WA6243— 


UA624] 
ArAaqya 
PAZAZA 
VG6433 
$22414 
AAB242 


A7Q3 


A715 


A723 


A733 


A744 


APAb624S © 


iP ADSL 
Arai 
AB SASS 
YVbB6433 
{22414 
NUABR242 
AAG6?P4S 


A75} 


SETUP 

LOA 0,787 
NGC A,NSKP 
AIC 1,NSKp 
SURa 1,48,SZR 
FHALT 

LaOP 


SETUP 

LD4 “A,7B4 
Nac a,NSKP 
AIC 1,9SKP 
SUBS 1,6,SZR 
FRALT 


“LOOP 


SETUP 

LOA “,765 
noc ”A,NSKP 
NIC 1,NSKP 
SUR& 1,0,SZR 
ERALT 

Lane 


SETUP 

LNA A,7K4 
ANC A,DSKP 
NIC 1,NSkP 
SUR&@ 1,4,S7R 
FHALT . 
Lane 


SETUP 

LDA “U,7BR3 
noc @,NSKP 
NIC 1,0SKP 
SUBH 1,,SZ7R 
ERALT 

LOOP 

St TuP 

LNA aA,Zb2 
nac @,NSKP 
NIC 1,NSKP 
SURY 1,U,SZR 
FHALT 

LaANP 


eENT 


-18- 


‘ 
FTEST NISK ANDRESS REGISTER 
SFOR SINGLE A BIT 
rVHOL" ca 
FREAD TT BACK 
pACA2GNCD 
pAC1BBAD 


-3TEST NISK ANDRESS REGISTER 


sFOR SINGLE ©& BIT 


“ sNHpe" = 4 


FREAN IT BACK 
sACB=GO00N 


 pACLSBHAD 


ITFST MISK ADURESS REGISTER 


1FOR SINGLE ZERO BITS 
I"HDOA" =« Gg 

tREAD IT BACK 
sacveGono 

taC1eHAl) 


STFST DISK ANDRESS REGISTER: 
FOR SINGLE A AIT 


~F"HDG" sy 


IRFAN YT BACK 
,ACHaGN0N 
rAC{L=BA0 


STEST NISK ANDRESS REGISTER 
sFOR SINGLF A RIT 

S"HOJ6" c& A 

PRFANM IT BACK 

yaACUaGNon 

saCLaBaDd 


FTEST OISK ANDPESS REGISTER 
tFOR SINGLE ZERO BITS 
P'"FORMAT" & 4 

PREAN TT BACK 

PACHEGNNN 

yACLSBRA0 


Aais 


A14Aa5 
A146 
21 4a7 
01418 
1411 
M1i4dle2 
M1413 


21414 
“1415 
“1416 
M1417 
21420 
“#1421 
A1422 


“M1423 
Q1424 
91425 
@1426 


41627. 


—6O1 484 
ai14a3i 
Aj 432 
41433 


@1434 
aL435 
21436 
a1437 
03440 
M1441 
A1442 
w1443 


01444 
1445 
01446 


01447. 


@145H 
aL 4514 
aj{452 
01453 
ajyasa 
9{455 
41456 


oHAIN 


AA6241 
A28112 
863933 
4066433 
122414 
AAG242 
2A6243 


A624! 
1A2220 
QBE3A3S3 


4664338 


122414 
WA6242 
A2A6243 


LA24AA 
226237 
A62A33 
065433 
122414 
AA6242 
VA6243 


{Aa{4saa 


WAaAT77 1 


AN6237 
AB3A33 
W664353 
122414 


A624) — 


AAG24S 
141404 
Aaa7714 


AU6241 
1A24HA 
A3ni34 
W72A58 
A72A33 
A72A88 
A62A33 
Yv65433 
125Aa04 
wAb242 
QA6245 


A7AS 


A773 


A7B3 


A793 


ABA 


SETUP 

LOA @,7ZB1i 
DOC #,DSKP 
DIC 1,0SKP 
SUB 1,0,SZR 
EHALT 

LOOP 


SETUP 


-ADCZR 4,8 


Nac A,NSKP 
NIC 1,NSKP 
SUB# 1,4,SZR 
EHALT 

LooP 


SUR 0,0 

JSR @ISET 
DOR A,NSKP 
CIF 1{,NSKP 
SuUB4 1,8,SZR 
ERKALT 

LoaP 

INC 4,@8,S72R 
JMP .=7 


JSR @ISET 
NOC a,NSKP 
AIC 1,0SKP 
SUBH 1.4,SZR 
FHALT 

LOOP 

INC 0,8,SZR 
SMP .07 


“SLOMAN ZERO, 
PPACKS WILL HOLD THE "i", 


7TEST DISK ADDRESS REGISTER 
FOR SINGLE &@ os 
9"D4" « @ 


- FREAD IT BACK 


sAC@sGO0D 
sACisBAD WORD 


TEST DISK ANDRESS REGISTER 
sFOR SINGLE re BIT 

r"DB" = @ 

SREAD IT BACK 

s,ACQO2sG0N0N 

yACL=BAD 


sCHECK CA REGISTER, ALL 
IPOSSIRLE PATTERNS 

tLOAD CA 

PREAN IT BACK 

7AC¥UsSGNHOD 

sAC1ZBAD 

700 IT ONLY ONCE FOR EACH PAT 
INEXT PATTERN 


CHECK DISK ADDRESS REGISTER 
PAIL POSSIRLE PATTERNS 
ILOAD/READ BACK 

,ACB=GO000 | | 

sACLaBAD 


INEXT PATTERN 


SSPECIAL TEST FOR 8291 
2IC PACKS, SET RIGHTMOST 
sBIT IN EACH PACK WITH © 
33 SUCCESSIVE LOADS, THEN 
MARGINAL 


STESTING CA REGISTER 
sACHUeG00N 
sAC1 BAD 


-j|9=— 


a AV20 


01457 
1 46AW 
vi4él 
“1462 
41463 
v1i4hd 
“P1465 
“1466 
“A1{467 
Wi a7u 
W347} 


“14672 
4473 
w1a74 
¥1475 
1476 
v:1477 
wLdsag 
“7 5Ai 
¥v1542 
ALSa3 
“LT5A4 


615A5 
vi 5a6 
“1507 
 vLSIA 
AY514 
41512 
01513- 
1514 
vji4515 
AL1516 
ei h7 


“AqLs2v 
ni52i 
“1522 
41525 
"15204 
“wid52o 
Ajd526 
#1527 
v153a 
V1i5A\ 
vis5s32 


MAT‘) 


Unb? 4) 
1A2]6un 
ASAISS5 
A7 2033 
A72AaA33 
U720S3 
AK2A33 
“65433 
122414 
“AWHh249 
AAGIA43S 


WA6244 
tA24ua 
n3U1L35 
U7 2053 
W72AS3 


ABIL: 


AB25s 


A72433 © 


V.4620A33 
“65433 
122414 
WN6242 
AA6243 


An624) 


ja24aaa 


A30137 
ATAASS 
A72A33 
W72A33 
VG2ASS 
YV65433 
122414 
WARP 42 
“VAG243 


“VH6243 


1A24VAa 
254194 
W73A33 
07 3AS3 
ATSASS 
UB SASS 
YVAAASS 
12414 
vAo7 Ed 
AAOP 4S 


ABS3S 


AB4S 


SETUP 


SUB 
LDA 
008 
NOR 
NnR 
006 
NIA 


SUR#& 1,4,5ZR 


ao 

2,RIT2 
2,0SKP 
2,NSKP 
2,NSKP 
a,DSKP 
1,NSKP 


FRALT 


LOOP 


St. TUP 


SUB 
LDA 
NOR 
ROR 
ANA 
NOR 
p14 


SUR& 1,4,S7kR 


FERAL 
Lane 


SE TU 
SUA 
LDA 
POR 
nor 
nar 
nna 
NIB 


SURE 1.44,5ZR 


FRAL 


LOOP 


a,o 
2,RIT4 
2,0SKP 
2,D0SKP 
2,NSKP 
A,NSKP 
1,0SKP 


: 


p 

A,A. 
2,ARITB 
2e0SKP 
?,0SKP 
2,NSKP 
A,NSKP 
1,NSKP 


T 


SETUP 


SuR 
LIA 
noc 
NOC 
nel’ 
Nae 
AIC 


SUR 1,4,S57R 


FERAL 
LOOP 


a,O 
?,RITI 
2,0SKP 
2,0SKP 
2,0SKP 
“a, OSKP 
1,0SKP 


T 


4 
SPECIAL TEST FOR 8291 
JIC PACKS, SET POSITION 2 
7(PIN 9) IN EACH PACK WITH 
13 SUCCESSIVE LOADS, THEN 
7LOAD ZEROS, MARGINAL 
PACKS WILL HOLD A "1" 


STESTING CA REGISTER 
yaCveGNo0 
sAC12BAD 


rSPECIAL TEST FOR 82913 

1IC PACKS. SET POSITION 4 
I(PIN 2) IN EACH PACK WITH. 
33 SUCCESSIVE LOADS, THEN 
sLOAN ZEROS, MARGINAL 
PACKS WILL HOLD A "41", 


STESTING CA REGISTER 
sACHB=G000 
rACLBAD 


SSPECTAL TEST FOR R294 


1IC PACKS, SET POSITION 8 
S(PIN 12) IN EACH PACK wITH 
73 SUCCESSIVE LOADS, THEN 
ILMAD ZEROS, MARGINAL 
7PACKS WILL HOLD A "4" 
JTESTING CA REGISTER 
racvsGoon 

SACL =BAD 


SSPECIAL TEST FOR &29} 

,IC PACKS, SET POSITION 1 
IC(CPIN 5) OF EACH PACK WITH 
$3 SUCCESSIVE LOADS, THEN 
ILOAND ZEROS, MARGINAL 
PACKS WILL HOLD A "i", 


PTESTING DISK ADDR REG, 
pACW=SGN0N 
PACLEBAD 


a20= 


a any, 


MAIN 


APOH241 
{AQ4uUA 
vsviss 
V7IASS 
V7ZBASSA 
V7 SAAD 
VA SYVSS 
VHHASS 
1724144 
WAC24P 
wARDAS 


¥W1533 
“v1d534 
M1535 
¥4536 
Wi1537 
v{s4y 
¥vj541 
{842 
“wilh 4d 
©4544 
vw 1545 


eAG2ai 
14245 
Mw 3ALse 
V7 SUSY 
7 BAAS 
PITIZASS 
VvASAGS 
WAH ESS 
1224134 
“AADaD 
VEHAAS 


wtl5so 
UASAT 
“LO5A 
v15S1 
r1S52 
¥vi1553 
¥1i554 
¥i5545 
A1SS6 
v1557 
wish 


-AV564 
71562 
YIHAS 
“{ShA 
V15465. 
“iho 
V§5487 
“POT 
y1571 
“Vj572 
G1573 


YARDAY 
JAZ AKO 
ASA37 
(7 333 


vi7Z Saad 
HAIASS 
VAR4aAS 
122414 
“UVvO?P4D 
GADDAS 


Alho7a 
n1575 
“1576 


PAL a7 
u4Vialrs 
UP ALAU 


V7 SABA 


“wis77 
*z{ nan 
VLAD] 
“L5A2 
uLoas 
ew {AAS 
“yras 
VLOHAA 
V1A07 
vil HTH 
vidi 
YiAL2 
nings 
vinj4 
“1645 


(ABD AA 
VAaAVA 
ARAL SSS 
122415 
AAHKD4EP 
(QEOHIAS 


N10773_ 


V?IU772 
MVsATZs 
1434445 
AIIU AAS 
QAAIHS 


y424y5 


APAT7T A 
ANANTH? 


A85: 


ABAS 


AB73 


Pi,is 


SETUP 

SuA A,A 
LOA 2,R1T2 
NOC 2,NSKP 
NOC A.NSKP 
NCC A2,NSKP 
NNC @A,NSKP 
ATC 1.NSKP 
SUAS 1,4,S7R 
EX ALT 

ILnaPp 


SETUP 

SuRm A Pa) 

LNA 2,R1IT4 
nut Aa,NSKkpe 
CGC 2.NSKP 
oor 2,NSKP 
naG A,NSKP. 
NIM 1,NSKP 
SuRR 1,2,S7R 
FRALT 

Loop 


SETUP 

SUR O,4a 
LhA 2,RITH 
Nok A9,nSsK«ep 
noc 2,NSKP 
nak A2,NSKeP 
Non A,ASKP 
AJC 1,HASKP 
SURES 1,8,S7R 
FRALT 

Lane 


LCA 4,KDOK 
STA “A,Pi.1 


PSPECIAL TEST FOR 829} 


JIC PACKS, 
7(PIN 9) 


$3 SUCCESSIVE LGADS, 
MARGINAL 


FLOAN ZEROS, 
sPACKS 


WILL RETAIN A 


SET POSITION 2 
QF EACH PACK WITH 


THEN 


st EL 


TESTING DTSK ADDR REG, 


2, AC¥sGNON 
sAC{sBAl) 


SPECIAL TEST FOR 8291 


s1f PACKS, 


SET POSITINA 4 


7(PIN 2) OF EACH PACK WITK 
#3 SUCCESSIVE LOADS, 
MARGINAL 


LOAN 7ERUS. 
*PACKS WILL 


ITESTING 
2 ACHEGNON 
SACLEBAD 


RETAIN A 


THEN 


i Le 


NTSK ADDR REG, 


ISPECIAL TEST FOR A291 


IC Parks, 


33 SIICCESSTIVE 


*LNAN ALL ZEROS, 


LOQAUS, 


TPACKS wTILlL PETAIN A 


SteT POSITION & 
> (PIN 12) MF EACH PACK 


wkItH 
THEN 


MARGINAL 


i 


ITESTING AIYSK ADOR REG, 


SALMESEERNGIN | 
sACLORAD 


TCHECK FOR ILLEGAL 
*DEVICE SELECT BY 
7NTSK PACK CONTROL 


LOA 1,02525 


SETP! 


AAR 


NTR 


SURBA L,eds,SNR 


1, 
a,NSKP 


FRALT 


LanPp 


187 
LNA 
LOS 
AND 
InP 
LDA 


StUIRa 2,4,SNR 


Pi.l 
?,R1.3 
2,077 


27¥,SKR 


R? 
2,f05SK 


InP Bi,2 


‘ 


-2l1- 


7PFRFORM 


"AOR" 


TO FVERY 


SOTHFR HFVICF AONRESS 


FANT) CHECK 


NSKP 


SEACH TIME TN SEF 


SIT PECOGNIZFD THE 


'"nOR" a 


SCMDF FROM HFRF AN TS 
PFOR JNCRPEMENTING TO 


INEXT MNEVICE 


ANDRESS 


a Ava? 


vi {ALo 
YIN? 
ey r2is 
Yvj6?71 
OLoP2 
VIA?ZS 


v1in274 
“qT aGAd 
7FLAPH 
84697 
BwLasa 
Toe i or | 
Vv 1032 


71653 
vindd 
re mart Ea) 
YLode 
“M4037 
vidh ae 
vjrdl 


“{hA2 
4 GAAS 
e1A4a 
Syo4s 

“4440 
" y{ha7 


e¢ahe 
rqndt 
we geS8o 
wqRA 
wq{eha 
vinSd 
YqR5Sh 
4g A57 
LOAD 


{He { 
Y{HKRE 
{669 
VS5K4 
Ata4b45 
CY 4K6 
r1e67 
wt $b 7A 


MAT 


WUeO? 41 
12Pna7eE 
vFi1433 
WAS448 
MAHISS 
7ERAHS 


Y4N2 44 
wPAUwTE 
MBVL SA 
VRAIS 
AB SRSA 
ABBINS 
VP oAHS 


WADA 
wOAATO 
“BLISS 
362677 
ABBASS 
WwAADSSA 


YARDAR 


VAAD A 


whaaga 
WOADTR 
1°7 424 
Vv PADAD 
"OAD AA 


wUeADAI 
PhSAyA 
LAQASS 
AA IA SS 
MA SZAAS 
SPADA 
127414 
Vlh? a2 
AWADIS 


AvAI2dat 
VDiAIAT 
vALI SS 
CAR48S3 
WDAATY 


123415, 


tea [A i) o5a 
YOPAPAOS 


H2 


Ra 


RS 


R?7 


SF TUP 

LOA A,CIWAA 
Meas Vis UQKP 
SKPRN DSKP 
PRLT 

LOANPA 


St Tue 

{O04 4,f1%vea 
NOAS v,N)SKP 
HTN HSKP 
SxPA7 NSKP 
Frit 

LOAPNA 


SFTUP 
Lea 


4,f Ave 
NNaS &,~VSKP 
TOQas@T 

SkKPRZ NSKP 
FHI.T 

Wa etal can) 


St Tip 

Nya 1,9SKF 
Lr a A,Agsen 
Aneit 4,14,57%. 
FHALT 


t. GOP 


St TUP 

arc 4,0 

ik “A,NSKP 
HOC A,ASKR 
ATA 1,%SKP 
Lid yO gay-is 
ene 4,111,857 
FrALT 

Lone 


Se Tuer 

Loa CO yas 
MOSS 2£,'11SKP 
Mys Y,0SKP 
{ud W,KKS 
AnPe 1,'), SNK 
FHILT 

[ OAPD 


299= 


¢ 
sSFE IF (S) PULSE WILL SET 
P"NP HIISY". START A 
7SFEK 
SKIP JF "MP BUSY" s 4 
SCHECK "NP START", "DOP BUSY", 
7"SELR" NC GATF. ; 


SSER IF (C) PULSF WILL CLEAR 
"NP BUSY", START A SEEK, 
> TREN CLEAR 


PCHECK "CLF AP" 


SFE IF TORST WILL CLEAR 
-"NDP RPUSY", START A SEFK, 
$ TrRE™ CLEAR IT 

sCHECK 


"RESET", "CLEAR" 


sCHECK TA JuNSURE THAT 
PALL SFEKING FE'IS are 
PCLEARFD BY TURST 
SACISRAND SEEKING 


PSTATUS FYnM OTA, 


ICRECK DATA THRU MUY 


?CHECK FAk PROPCR 
PIMPUT OF STATUS THRIY 
THE MIL TIPLEXRRS TQ 
?TKHE NATTA FUSS OC GATES 


. 


SFEKING STATUS On 


(ACI) =STATUS 


FALIL SHGOHNLN PE ZERO, 

sTRY TO SET "SEEKING vi" 

sVTA (S) PKIILSE 

r"NP START" SETS "START" 
SCHECK "ADAPTER SeEL", "SFEK" 
rANI) "START SEER!" 


a aves 


("9671 
YI6072 
V1073 
41th74 
401675 
41676 
“vj~A77 
vizau 


HI7TAY 
vjy702 
“VITUS 
V17A4 
¥17G5 
“ALZ OE 
ALTA? 
AI71A 
@L7it 
ni7i2 


Vi713 
“~1744 
vi7id 
01716 
C4747 
U172Qu 
Vi72l 
Q{722 
¥1728 
i174 
“414725 

Wiz2t 


01727 
oe AN.) 
-Vi73Si1 
“j37se2 
“Wj73s 
w1734 
44735 
“1736 
AL7S37 
AY? aun 
wg7et 
“i742 


MAIN 


VOO?P AL 
vreua7nA 


Y61333 Ss 1o71>-DOAP 0,0SKP. 
*LOA 1,KB5 


247 { 
v6n4453 
123415 
MAGB2SS 
YAR?PHS 


WAH? 44 
WAUATEA 
“AB1L333 
AZ7N433 
U2VAT 
“UPA4P1L4 
{47 40a 
122414 
wARAPSS 
VAH263 


HAR™SS I 
SOUASS 
AB3AS3 
~AQUATA 
HAY333 
ATAaSS 
W242P16 
AQHATA 
147404 
122414 
YPABIASS 
YWAAZ OS 


WAAAY 
1AZAQ|U 
VA IASS 
ViPUATA 
A613S3 
Y7U433 
V?P4216 
H2ACO?7 
14740A 


422414 


YVAGBADSA 
VAAPAHS 


BAS 


(tatg 


BOS 


RAS 


Pils 


SETUP 
LDA A,f 1000 


N1A v,NSKP 


ANN# 1,4,SNR 


EHLT 
LONPN 


SETUP 

LDA A,CiANA 
NNAP %4,DSKP 
NTA 2,0SKP 
NA A,KB5 
LUA 1,€36na 
AND 2,3 


SUHe 1,%4,57R 


ERKLT 
LOAPD 


SETUP 

LOA 4,KH1 
NOC 2,NSKP 
LDA @,C1%HA 
NGAP 4,OSKP 
DI4 2,0SKP 
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SELECTION {1 
$ SEEKING 
THAT NO 
SEFKS, 
NURING SEEK 


;ACL2HAD SEEKING STATUS 


PACH=EGNOAN 
BCHECK UNIT 
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AQUv2P6 
2227 
UPASA 
YIuLAYL 
“urAuse 
ABZASS 


AQ2UNS4 
wanss 
VOVI6 
V2437 
AQAA 
M2Aal 
¥2OMA? 
ADAAS 
W2A44 
wauAad 


Yando 
woaa7 
V2ahsvi 
HVPnst 
“A452 
v2A5S 
WV2n5e4 
weaKN 
V2~aS6 
nPas7 


aNAIN 


ANHIA44 
UIHNAB? 
VAH2AIA 
vBUIS3 
A2RP HG 
Q644453 
10744 
WYbO5A 
YAH208 


PRAISI 
1AL2V3 
AAY AAT 
ANCA S7 
VA? S | 
W2VA54 
124415 


APHIDS © 


4AH2a3 


MPALS| 
JALQAA 
Leyes 
AAV 6-7 
WAG? S7 
AQADISD 
PDIAVPTS 
193415 
AAGH25S 
AH2Z4S 


AQALAL 
NV2ARB§S 
1234v5 
AAW EY7 
CO6237 
“AG2P3S 
VIAva7s 
123455 
VEAH25S 
VABRAGS 


AL16s 


R17: 


BIR. 


A193 


SETUP 

LIA 2,Kb12 
SSFEK 

NIOC OSKP 
LOA A,KBS 
NYA 4,NSKP 
AND @,1,SZR 
ERLT 

ILanen 

LN4 @,NNSKS 
MOVR Y,Y,SNC 


IMP RL 


JSR @ISET 
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424087 
veaiu 
nPalil 
VP 412 


v2ai13 
— A2414 
Vv2415 
W94I6 
v2 417 
DQASPIA 
uPari 
V¥2422 
“W423 
W24294 
n2a25 


WPADA 
"2427 
WPaS3A 
“24s 
02432 
i243 
V2434 
vi2435 
@2436 
y2437 


i~Daay 
R2444 
WP4AP 
pads 
VPL44 
y?ass 
“2? 446 
27447 
(2450 
02451 


MAIN 


VAIS 
Vi24AG2 
123445 
VAZAVE 
VAB?37 
A2AAZIS4 
VAADSS 
ALH?SS 
WAG24S 


AR BD4A 
v2u,52 
VAIASS 
AQZATA 
Ybj333 
PIAS 67 
VAUG227 
U2R2LE 
125415 
YVAC242 
NAH 43 


“A~AKDAA 
AAVIO2 
ZAR IASS 
ADAATA 
vA1333 
wayj67 
WAK227 
AIuan4 
1273414 
UAK2 42 
YUOH2GaS 


WAA24U 
PAB? 3A 
VWA627 46 


YVAURT7 | 


AQACBS 
AAUUABS 
iN7 414 
147414 
AAADAPD 
YVAH243 


AARON 
WAHDISA 
ALND dA 
AA SUD 
APVPOS 
AAG 


R425 


B443 


R453 


R463 


JA7 414 


147414 
"AbD 4A 
AAGB2G4S 


LNA A,NDSKS 
LOA 1,KB12 
AND 1,€@,SWNR 
JMP R43 

JSR @€1SET 
RECLS 

TTRwT 

FRLT 

LOOP 


SETPI 
LOA 0,TESTU 
noc ®,NSKP 
LNA A,KR6 
NOQAP @,0SKP 
LGA 2,C5 
WATT 


-~LOA A,C74«K 


AND# 1,H,SNR 
EHALT 
LOOP 


SETPI 

LOA TESTI 
NAC A,PASKP 
LNA ¥,KB6 
NOAP ,DSKP 
Loa 2,C€9 
WATT 

{9A “u,Kpbin 
AND# 1,4,S87R 
EHWALT 


- LOOP 


LOA A,KBYO 
LoA 2,KBiN 
ANOS U,1,SZR 
AND# 2,1,S7h 
FEHALT 

_ONP 


SETF{ 

GANSk 

SEEK 

ave 

LOA A,KBI 
LOA 2,KBie 
ANDs @€@,1,S7R 
AND& 2,1,57R 
FHALT : 
Lone 


~31l- 


‘ 
"SEEK NONE 3" 
INTERRUPT 


SSEE IF 
IWILL CAUSE 


(SKIP IF NO UNIT 3) 


1SFT "SEEK DONE 3" 

$1S THERE AN INTERRUPT ? 
INN, CHECK "INTERRUPT", 
:"DP INT REO", 


PTEST SEEK TN CYLINDER & 
SCFIRST ATTEMPT AT COMPLETE SEEK) 
ISELFECT AN ACTIVE UNIT & 


SSEEK ! 


swAIT 5AQmMS (OR UNTIL 
sACL=SSTATUS 

INQ SEEK DONE STATUS 
ICHECK "SEEK", "CONTROL i", "CYL", 
P"HDS+NIR", "CONTROL 2", SEQUENCING, 


"DONE" ) 


TEST SEEK TM CYLINDER wu 

PSELFCT AN ACTIVE UNIT #& 

sSEEK | 

PwAIT 5A0MS (OR UNTIL "DONE") 
SACLESTATIS 

ISFEK ERRUR STATUS 

SCHERK "SEEK","CONTROL 1","CYL", 
S"HDSNIR", "NIFF", "CONTROL 2", 


TEST SEEK CYLINDER 77 (ACTAL) 


FACLZENDING STATUS 


ISFEK ERROR OR 
INQ READY STATUS 


ITEST SEFK CYLINNER 380 (COCTAL) 


FACLEENDING STATIS 


SSEEK ERROR OR 
tNO READY STATUS 


a Av:d2 


v2652 
(AAG 
Yi2aia 
yo455 
£2456 
4.9457 
A246" 
u2A4A5] 
42482 
w24AG 
Vi2?b646 


Y24AN 
Ww Daa 
VvO4aA7 
AA4aT7L 
WPaTY 
w2a7? 
YPATS 
v2a74 
Ww9a7d 


429476 
v2477 
waanAu 
vah{ 
yPAhuv2 
mO5V5 
areola 
PIS 
-w2hithbh 
AAdOT 


WODTA 


eon © 
27512: 


w75135 
O83 4 
fasts 
42510 
aO517 
“DADA 
v2027 1 


MAIN 


VYAKRDAP 
QAaABDSA 
“wkhon? a& 
AALAUNP 
SAKASS 
VAK ALY 
WPAID4 
Y65477 
192414 
WAH? AD 
ACADAA 


AP HPAL 
Z ARP SA 
“MADAAdH 
AAA IA 
WAND SS 
VYAA2SS 
Wue4vr? 
AGA 4a2P 
vVPH2ad 


“ZAADAA 
A2AAHT 
ARQ2977 
YORAIA 
“AOD A 
AD AAS 
“vAGBASA 
aiaaud 
WAH249 
“WAHA4AS 


EHD GIA 
APARH7 
W6QU77 
VADQA77 
WARDIA 
AWH2 GA 
AAA (ASIA 
WeHI35 
YOADaD 
AAD GA 


R473 


R4RS 


R403 


R545 


SE TP I 
BADSK 

SEF K 

fa 

TTRwT 

IMP +) 
LOS ¥,COSK 
INTA 1 


SuUBB L.,S7R 
- FRrALT 


LOAP 


SE TRI 
GL09K 
SEER 
4 
NIAC 
T1&+ 1 
IMP oe? 
FRALT 
Lnor 


Ske 


St Tri 
LRA 
MSKI} Ww 
Gans 
SEFA 

f% 

TTFo#T 
hP +? 
ERALT 
LanP 


St TF 
1A A,KK7 
MOK ES 
TOSST 


GANSK 


SFEK 
? 
TTPAT 
FRALT 
i mnP 


A, KB? 


CHOOSE AN ACTIVE NISK 


s ANID SET INTFARRUPT VIA SEEK, 


CHECK FOR PROPER DISK 


SANDRESS RFSPONSE TO INTA 
FALLOW INTERRUPT 


GFT THR ANDRESS 
SINTA FATLED, 


sacvecren 
saCisARAad 


SSFE IF (C) PULSF WILL 
"NAP INT REQ" 
"INTERRUET" 


7CLE AK 
sSET 
7A SFEK 


wITH 


?CLE4R INT RFQ 
SCRECK FOR INTERRUPT 


INN TNTERRIIPT, 


:(C) THrRil 


OK LS 


"Clear ALL" 


sCLEAw "NP TNT REQ", 


FAILS TO 


SINSUKE THAT "NP INT DISAKLE" 
SINHTIAITTS INTCPRHIUPTS 


?SET ODTSABLE 
rREYT ACTIVE 


INTT #& IN 


>STARY A SEER 


7IS TrFaF AN ISTERRPUPT 


IAN, GOGH 


tMSKP RIT 7 NIM NOT’ SET 


BARD 


JNHTKTT 


(aCe) 


9 


"Pp 


"NP INT REG", 


STINSHURKE THAT IARST WILL 


*>CLEAR 


7SET 


mNP INT 


CLE SR IT 


2 GFT 


ACTIVE 


NISABLE" 


MNT #& IN 


SSTART A SFEK 


~32— 


"NP INT DISABLE". 


(aC?) 


NISABLF " 


71S THERF AN INTERRUPT 


-NO, 
POTSARLE", 


CHECK RESET OF 


"OP INT 


a Av3SS 


(2522 
4259283 
W254 
v2525 
n2526 
12527 
W253 
nu253i 
42532 
02533 
A2536 
We535 


“2536 
v25s7 
w254u 
“wP54) 
¥.2542 
w2543 
W2544 
¥2545 
FAn4A 


“2547 
v255u 


“2951- 


a2552 
“2553 
WA5k4 
wPSSS 
Vv255H 
V2557 
wIASKA 
n2ds41 
A25#2 
w2568 


W264 
A2545 
A566 
V2567 
V257i 
“2571 
n?572 
4.25783 
42574 


MAIN 


U2WN154 
LAL2es 
ARUL2S 
HV46244 
15252a 
ion246 
HARADA 
“644353 
vV2an65 
123415 
WA6242 
UAGIA4S 


YVABA4L 
15252a 
uR6b246 
VEURUA 
VB44358 
UPUAGSG 
123414 
VAH2Z49 
AAHPA4S 


vw2n151 
{ALPAWA 
121 awd 
HaAv423 
AAO 4I 
ASVABA 
VAB246 
YAVDIAA 
64433 
neuens 
123435 


¥Ab?4a? 


WAA4ES 


Vhib244 
VIGAHA 
WARAaK 
PAAAAA 
PASE35 
U2UnOS 
1? d454 
4P6A4? 


YUAH24S 


B51% 


R533 


R543 


LOA A,NOSKS 
MnVR A,@,SNC 
JIMP B33 
SETUP 

SURZL 2,2 
SEEK 

A 

OTA 1,NSKP 
LUA 4,KB9 
ANDa 1,”,SNR 
FRALT 

LOOP 


SETUP | 
SuUBZL 2,2 
SEER 

~ 

ATA 1,0SKP 
LOA A,KRin 
Aphis 1,4,S7R 
ERALT 

LOOP 


LOA A,NDSKS 
MOVR 4,0 


MOVR ied, SNC . 


JEP 855 
SETUP 

Loa 2,KR14 
SEER 

a 

ATA 1,9SKP 
na &,KBQ 
AKDa 1,0,SNR 
FHALT 

Lane 


SETUP 

LDA 2,KR14— 
SEEK 

Aa 

ANJA 1,NSKP 
Lb4 A4,KBLY 
Aste £,4,S57R 
ERALT 

LanP 


ae 


SIF UNIT A NOT AVAILABLE 
GQ ON TO UNIT 1 

PCLUINTT W NOT BEING TESTED) 
SINLE STATE STATUS CHECK 
sSELECT THE ADAPTER 

swITH A SEFK @ 


FREAD STATUS 


INQ READY STATUS, 


SINLE STATF STATUS CHECK 
ISELFCT THE ADAPTER 
swITH A SEFK ¥ 


FREAN STATUS 


-TSFEK ERROR STATUS, UNIT ¥ 


TIF UNTY 1 IS NOT 
ON TO UNIT 2 


sAVAILABLE, 


SKIP THIS TEST 

FIOLE STATE STATUS CHECK 
*SELFCT THE ADAPTER 
mwITH A SEEK ¥Y 


FREAD STATUS 


INN’ READY STATUS, UNIT J 


JINLE STATE STATUS CHECK 


SELECT THE ADAPTER 
swWITH A SFFK 4 


REAM STATUS 


ISFEK FRRGR STATUS, 


re A%*%a 


VON75 “ONT5ST ROSE 


th P2576 
vAdn77 
“AnAA 
VAM | 
ADnve 
CAH 
VPAAAG 
VAHAD 
Ve 2A 
wn Pot7 
“PHL 
%7bo11 


vAgt2 
“aged 
vw 2A1S 
B2615 
S2hd8 
ADRA7 
CAKPDU 
4287) 
« PAA? 


“CAAIS 
YOnDS 
2 INIA 
SPKIG 
ARDT 
PSY 
wordy 
ZInAS 
Ww?2O3S 
rn ee: | 
w2AsSS 
“OES 
“W287 


AB aut 
“OnAL 
And? 
waAba4S 
“AP EGA 
VAHADS 
v2A4O 
Vata? 
v2o5e 


MATIN 


WA ACH 
17748 
vAayv4edg 
WABAAaY 
Sua 
UAHDAA 
PRS EY oP a od 
"Baas 
ViasAns 
124415 
¥VA2DAD 
AAHDAA 


“VAR 41 
ABZAMAL 
VARA 
VAL AAR 
BABS SS 
VOEUAAG 
173414 
VtA24? 
VVADIAS 


POuTS4 
Vv DAI"DD 
193405 
ALAA 
AUB AL 
WAV? 
iwnpaarw 
AAA E 
“Y64453 
WDE ARS 
123415 
mvAda? 
sAADAA 


SAMDAY 
“AL AKD 
rene 
WAP Wa 
VF G44 4 
ANDAR A 
172.4414 
WAHDAD 
vita gad 


R548 


A578 


LOA “,NOSKS 
Pa 3," B15 
Ael) 4,1,SN9 
JRP ADT 

Se TUuP 

tLieA 2,Kaig 
St k« 

é) 

Hhy& 1,NSKP 
(4 W,K59 
AME 1,4,SNR 
FrALT 

LOOP 


SF Tue 

LEA A-KBIS 
Sta 

¢ 

NTA 1,NSKP 
Lid W,KHLE 
Arne 1,0,S7k 
FRALT 

i_anP 


Lhe PZ"OSKS 
bhrA $,K€ 012 
4ni) 1,°,S8m2 
Ierp NY 

Se Tue 

LA 2, KbLY 
SrFR 

fA 

ATA 1,°9SKP 
Li:4 @,KnQ 
4b\0e8 1,4,SNR 
FHALT 

LOAF 


St TUF 

{ra A,Ke{2 - 
Sten 

a 

MTA Y,05KP 
{fk 2K BLO 
Lhe $,4,57R 
Fr aLT 


 Laonr 


=-34— 


( 
7TF UNTT 2 IS NOT AVAILABLE 
?G0 ON TO UNIT S 


SKIP THIS TEST, NO WNIT 2 
SINLE STATE STATUS CHECA 
ISFLFECT THE ADAPTER 

gwIThK A SEEK 


SREAD STATUS 


2HO READY STATUS, UNIT 2 


SIOLE STATF STATIIS CHECK 
SSFLFCT THF ADAPTER 
twITH A SEFK uv 


TREAD STATUS 
SSFEK FREOQ STATIS, WNIT 2. 


rJF UNTT 3 JS NOT AVAILARLE 
7GM TO NEXT TEST, 

SKIP, NO UNTT 

PINLE STATE STATIS CHECK 
tSFLECT THE ADAPTER 

gwIlTH A SEFK v 


TREAD STATUS 
7NNM READY STATUS, UNIT 3 


rINLF STATE STSTUS CHECK 
>SFLECT TRE ANAPTER 
twITH A SEEK Ww 


TREAD STATUS 


ISFEK FRPP STATIS, WNIT 3 


a A¥35 


v2o51 
v2652 
2653 
n?654 
¥2655 
- “26456 
V26457 
WAAAY 
VPHA I 
WAKA? 
mPKAY 
APHAG 
2665 
ABBE 
42667 


V2nTA 
2671 
nu2h72 
22673 
v2A74 
22675 
AnDaATA 
2677 
 Ag7THA 
niPTA 
42702 
wPTAS 
P74 
G2A7A5 
VvATUG 
H2707 
BATA 
Y2711 


eMATN 


AAK244 HLs 


A2WULSA 
ABIASS 
ASALEA 
V7IAASA 
A2UAG7 
AAL133 
AVO165 
AAVQAIA 
nA{L 433 
324960a 
{47040 
122414 
iAAKDa2 
YEH243 


“YA? 41 
AQUIS2 
AAZVS3 
VanLOa 
W72AS3 
UP41 4A 
AAZ5AUNA 
WA5Aa} 


VPAAB?Z 


eALLSS 
AKnH464 
VAISS 
AZBLAAN 
ATLAS 
1%6415 
146414 
APHPAD 
WAHDAS 


N2 


SETUP 

LDA @,TESTY 
DOC A,NSKP 
LDA 2,BUFF 
NOR 2,NSKP 
LOA A,Kb7 
NCAS A,DSKP 
JSR SSTALL 
NIONC OSKP 
CTR A,NSKP 
LOA 1,KB14 
Ann 2,1 
SUBS 1,%,SZR 
FEHALT 

LOOP 


SETUP 

LDA “A, TESTU 
onc A,NSKP 
LNA 2,RUFF 
NN’ 2,NSKP 
Loa 1,C02525 
STA 1,9,2 
ST4 1,4,2 
LDA 4,KR7 
DNAS 2,DSKP 
ISR @STALL 
NIAC OSKP 
LOA A,aA,2 
LDA 2,1,2 
SUBsS %4,1,SNR 
SUBS 2,1,5ZR 
ERALT 

LoGe 


<35= 


| 
tCHECK THE FIRST 2 DATA 
SCHANNFL CYCLES OF A WRITE 
S(FIRST ATTEMPY AT WRITE) 


LOAN CA REG, 


SWRITE 13 

ALLOW TIME FOR NCH CYCLES 
CLEAR THE WRITE OPERATION 
SACASENDING MEMORY ADDRESS 
PAC2Z=STARTING MEMORY ADORESS 
2 DCH CYCLES SHOULD HAVE 
FOCCURREN 

s,ACHSBAD, AC12G6000 


SCHECK THE SFUUENCE "DP FLAG"@ 


S)/REQL"="2ND REQ", "DP FLAG" 


SETS "DP NCH REQ" wHICM STAYS 


SON FOR @ MEMORY CYCLES, 


PCHECK THE FIRST 2 DATA 
HCHANNEL CYCLES OF A wRITE 


SSET MEM ANOR PEG, 


POATA = AS52595 
$ 2 KOFDS 


PwWRITE ?! 

ALLOW TIME FOR 2 DCHIS 
SCLEAR THE WRITE 

SIS THE NATTA STILL IN MEMORY 
SIF NOT A NCHI MAY HAVE 
SRFEN PERFORMED INSTEAD 

7OF A OCHO ; 
PACURACZSBAD wORDS 

84C358G009 


AV Sh 


Y2712 
V-2715 
v2714 
¥I2714 
V.2716 
W717 
wAT7oU 
vie7 Pl 
v2722 
v2793 
v9724 
wATF?d 
wA72h 
2797 
YV27 dv 


Vi27al 
wIATAP 
bI73S5 
WOT 34 
APTI 
FAT SH 
22737 
VP?) A 
“P2744 
02742 
ADT AS 
APTAA 
(§27 445 
n 27 45 
n27 47 


Z2TDdA 
AO75SL 
W 2752 
9753 
V.2754 
v2755 
¥v2756 
v2757 
rA7SU 
vr PTA 
VW 27A? 
Ad7THS 
APT64 
WPTADS 
Yi2TAB 


“MAIN 


4wafn72éd1 N3s 


WANTS? 
AR SASS 
Lureauna 
VAQAGSS 
A2aA07 
VE51L SS 
YOOJOS 
A6n2ss 
6 AMAA 
®PO5453 
{1 3rna 
14h4j4 
AARDAD 
WUAhDAS 


WABDAL 
WANED 
VA SASS 
1A25?A 
UAZAAA 
1449 4atAb7 
“M65193 
VAR TRS 
H6uI9 S83 
LABIA 
VARA 
Li dave 
{4414 
WAR2 42 
“A627 43 


LAHD 41 
UAHA? 
YASAAS 
V2AL17 
VAQAZ SS 
AD4UA7 
C65 133 


VAAL OS: 


VBUPIA 
AAA 
YwAHA9A 
11 aauna 
1460414 
VP APA? 
WAAD AS 


Se Tue 

LUA 4,TEST! 
nac A,ASKpP 
SyR a,a 

PAR W,NSKP 
La 1,«Aa7 
ROAS 1,09KP 
JSR @®STALL 
NIMC OSKP 
LPA 2,Kt14 
NTR 1,NSKP 
ANN &,? 
SUR& 2,157 
ERALT 

LONP 


SETUP 

Led “, TESTU 
SC “w~,NSKP 
SurRZtl Aa 
PER BZYDSKP 
fis 1,87 
NrdaS 1,i:SKP 
JSP @STALL 
NIQNC LSKP 
LP’ 2,KK14 
N18 1,0SKF 
ANN a,2 
SuRe 2,1,57R 
FRALT 

LOnr 


SETUP 


Lia 8, TESTU 
non @,0SKP 


Loa %,C3 


NGA U,NSKP 
LOA §,Kd7 
NG4S 1,0SKP 
JSR SSTALL 
MBINMC USKP 
LOA 2,KBLS 
NOJ# 1,0NSKP 
400 W,2 
StiRe 2,3),S57F 
FRALT 

1oor 


Es 


: 4 
7CHFCK PROPER CA RFGISTER 
7 INCREMENT HY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
CYCLES AT THE BEGINNING 
SOF A WRITF, 


2 WRITF !4 


SSTOP THF WRITE 
PACASSTARTING MEMURY ADMRESS 
SACLSACTIIAL ENDING MEPRORY 

, ANDRESS 

SAC2ZSCORPECT ENDING MEMORY 

Hi ADNPRESS 


CHECK PPNPEP CA REGISTER 
INCREMENT BY ALLOWING 
STHE FIRST 2@ DATA CHANNEL 
*CYCLES AT TkE SFGINNING, 
SOF A WHITE, 


STOP THE WHITE | 
sA4CASZSTAPTING MEMORY ANDRES 
PACLZACTUAL FNDING MEMORY 

; ANDRESS 

PACQECNRRECT ENOING MEMORY 
; ADDRESS 


TEKECK PROPER CA REGISTER 
SINCREMENT BY ALLOWING 
STHE FIRST 2 VATA CHANNEL 
SCYCLES AT THE BEGINNING 
s0F A WRITE, 


,; WRITF Jf 


ISTOP THE HRITE 
SACYASSTARTING MEMORY ANDURESS 
SACLSEALTUAL ENDING MEFDRY 

; ANDRESS 

SALSSCNRRECT ENDING MEMORY 

; ANDRESS 


a 


AWS? 


"2767 
ue770 
WP774 
v2772 
02773 
A2774 
v2775 
w2776 
G2777 
wana 
wanAay 
BAND 
ASWAS 
USUAS 
AAAS 


@AVA6 
VAAK7 
WIAaiVv 
WSaih 
W3Al2 
axrals 
VIeL4 
B3@45 
vjuib 
ASUI7 
V3AQuU 
To | 
C3IE22 
“¥INIS 
Y3aA24 


e3n25 
Vvdu?4A 
A3H27 
Q3ASu 
nAsAsi 
YV30382 
VIASS 
G3aV34 
VdSASDS 
vaAdG 
ASAT 
ysney 
VSASY 
AIrANI42 
YASAAS 


MAIN 


ANO2 41 
AQGi152 
N632ASS 
a2vi2a 
H62A33 
A24AK7 
Y65135 
“vn61645 
YVbAAAS3 
AZAGEA 
265435 
11 5auN 
146414 
AAB2a2 
UAG2438 


VAG241 
A2UN192 
P6339 
Y2“5 214 
nN62U53 
AQ4A67 
YVb5135 
anoi165 
ABG2ZIS 
HSWVAHA 
O45433 
Li sara 
146414 
AGAHD4P 
AABIAS 


“YAG241 
“u2nids5e2 
PA43735 
A2VL22 
VGB2A33 
247067 
A65133 


AABLAS: 


ABYASS 


ASAABDA © 


4165433 
Lise 
s464634 
UAG249 
AAG24S 


N68 


N78 


SETUP 

LOA A,TESTU 
COC a,NSKP 
LOA 4,C7 
NAR A,OSKP 
LOA 1,KB7 
NOAS 1,0SKP 
JSR @OSTALL 
NIOC DSKP 


“LOA 2,KB14 
“OTR 1,NSKP 


ADD A,2 

SUR& 2,1,SZR 
ERALT 

LOOP 


SETUP 


LOA 4, TEST 
Nac a,NSKP 


“LAA 4,C17 


DOR A,NSKP 
LOA 1,KB7 
PGAS 1,0SKP 


- JSR @STALL 


NIQOC 0OSKP 
LOA 2,KK1L4 
NIR 1,NSKP 
ADD 0,2 

SuURa 2,1,587# 
FERALT 

LOOP 


SETUP 


LOA @, TESTU 
Nac A,NSKP 
LOA 4,037 
NOR #,NSkP 
LOA 1,K7 


PGAS 1,0SKP 


JSR @STALL 
NJOC OSKP 
04 2,KH14 
NIRA 1,NSKP 
ANN 4,2 

SuRa 2,1,52R 
EHALT 

LOOP 


( 
ICHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
PCYCLES AT THE BEGINNING 
FOF A WRITE, 


p WRITE $4) 


BSTOP THE WRITE 
SACAESTAPTING MEMORY ADDRESS 
PACLEACTUAL ENDING MEMORY 

; ANDRESS 

PAC2ECORRELT ENDING MEMORY 

J ANDRESS 


SCHECK PROPER CA REGISTER 
PINCREMENT RY ALLOWING 
STHE FIRST 2@ DATA CHANNEL 
SCYCLES AT THE BEGINNING 
1OF A WRITE, 


? WRITE !] 


?STOP ThE WRITE 
PACUSSTAPTING MEMORY ANDRESS 
PACILSACTIHIAL ENRING MEMORY 

; ADDPESS 

PAC2@SCNRRECT ENDING MEMORY 

t ANNPESS 


#CHELK PROPER CA REGISTER 
BINCREMENT BY ALLOWING 
STHE FIRST 2 VATA CHANNEL 
#CYCLES AT THE BEGINNING 
SOF A WRITE, 


bs WRITE [3 


>STOP TRE WRITE 
PACASSTARTING MEMORY ADDRESS 
PACYEACTUAL ENDING MEMORY 

; ADDRESS 

rAC2ECORRECT ENDING MEMORY 

H ANDCRESS 
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a Axv3b 


~araé 
wat4ads 
oe Teo} 
yaua7 
emsasu 
var) 
¥In52 
w3ashg 
cn aba k:| 
Ma Tobe bo | 
viviSo 
wauh?7 
way 6M 
aN na | 
a ea oi 


“BAS 


BawAG 
t anF& 
vB 
WV aAA7 
47s 
Pan7 |i 
VarA7T? 
4230738 
vau74 
PAA7H 
m3n76 
ASAZ7 
on, aa 
eO1N) 


espe? 
“wa piad 


-ASITAS 


73176 
ASIA7 
wSiir 
ySiit 
VALI? 
vdldsd 
wSL44 
“zAY PED 
eo Lis 
yet? 


wisi 


MAT‘ 


WARDA 4 
“wP2A1S9 
tASASS 
BmAnvi2s 
WA2093 
it24An7 
vAb51S3 
4WAG168 
ARUISA 
AAMKOA 
4465453 
LI gerne 
140414 
wo? 42 
nrAAD43 


KAKA GS 


2201452 
bAGLSS 
ADAYA 
VA2ZESS 
AZ EAD? 
YENI SS 
vQhI hh 
“64238 
Vayvane 
wB5ASS 
Li saa 
14mA14 
LEAP aAP 
SUBDAA 


GAH? AL 
veAiIa? 
VwAIA SS 
viav{2S 
VAZAISSA 
247067 
wAS TSS 
vvbA{os 
wALVISA 
ye QPATAWIA 
YRH4AA 
11 dana 
144454 
“Parad 
yhagQanr 


NQs 


NYAS 


O11 


SF TUP 

LOA YU,TESTI 
noc 4,ASKP 
LOA 4,C77 
NCR A,NSKP 
Loa 1,KB7 © 
NN4S 1,0SKP 
ISP @STALL 
NINC USKP 
LPs 9,Kk 514 
NTR 1,9SKP 
ann 4,2 
SUR 2,1,SZR 
ERALT 

LaAP 


SE TLE 

Lb’ ®,TESTY 
noc v,NSkKP ~ 
LOA 42,0177 
ANE A,NSKP 
L(A 1,337 
NGaS 1,0SKP 
JS® @STALL 
NIAC OSKP 
LOA 2,KK14 
ATH 1,NSKP 
4n0 3,2 
Suke 2,1,S7R 
FHALT 

LCF 


SFTUP 

Lps4 4,TESTI 
NOC A,NSKP 
Lea 24,0377 
NOR #,NSKP 
oA 1,37 
ACAS 1,NSKP 


JSR *€STALL-- 


wINC DSKP 
1MOb 2,KKj4 
N38 1,NSKP 
ALN “u,? 

St'8@e 2,1,57k 
FreaAl T 

LOOP 


~3p= 


CHECK PROPER CA REGISTER 
INCREMENT BY ALLOWING 
THE FIRST 2 DATA CHANNEL 
CYCLES AT THE BEGINNING 
OF A URITE, 


, WRITE J} 


ISTOP THF WRITE 
SACUSSTARTING MEMORY ADDRESS 
SACLEACTUAL ENDING MEMORY 

; ANDRESS 
sAC22CNRRELT ENDING 
: ANORESS 


MEMORY 


SCHECK PROPER CA REGISTER 
JINCREMENT BY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
SCYCLES AT THE KEGINNING 
70F A WRITE, 


f WRITE J} 


STOP THE WRITE 
SACVESTARTING MEMORY ANDRESS 
SACL RACTIAL ENDING MEMORY 

H ANOPESS | 

FAC2SCORPELCT ENDING MEMORY. 
H ANDRESS . 


*CHECK PPOPER CA REGISTER 
SINCREMENT BY ALLOWING 
TITHE FIRST 2 DATA CHANNEL 
tCYCLES AT THE BEGINNING 
SOF A WRITE, 


, WRITE $f 

SSTOP THE WRITE 
SACVSSTAPTING MEMORY SNURESS 
rAC{LSACTUAL FNDING MEMORY 

; SbNDRESS 

SAC 2PSECORHECT ENDING MEMORY 

; ADDFESS 


A AWSYD 


ae we | 
¥3122 
“a3j2d 
u31ad 
WALA 
“w3126 
Y3127 
ASLIA 
023131 
v3i132 
¥3133 
~AL3a 
AIL35 
H31s6 
V3137 


“us{ an 
v3i4i 
43142 
ASL 43 
Hw314a 
v3jid5 
¥3146 
31467 
v3isu 
W315! 
asLs2 
43353 
3154 
ASYAD 
W3156 


Y35157 
vds16 
vVsLAl 
u3si&e 
W3165 
w3S1A4 
P3145 
ABLLAG 
ASL67 
V3i7V 
Vai7i 
C3172 
¥YAL73 
P37 4 
A375 


MAIN 


AMOA41 N12: 


APULS?P 
“HA3ZAS3 
HAn1I2ZA 
YVAAASS 
VP 4AB7 
YVA5559 
PAGS 
UBVIA3S 
ASAAGA 
CAS 433 
tiaeva 
1464]4 
AAGK242 
LAGA4S 


YREAa{ 
A2A192 
VASASS 
AMuG27 
AbB2C33 
AI4P67 
“ASLSS 
ARBIOS 
UAbA233 
ABSVABA 
“654353 
,I3aaa 
146414 
UACZAP 
AAG?P4S 


AVGO944 
wU2uUio? 
GA IASS 
APALIA 
ARQASS 
A240O7 
0651353 
PABIBS 
“vAWISS 
ASAPHA 
VO54353 
TL dane 
146444 
PPA S A? 
UABD4S 


N1Ss 


SETUP 

LOA A, TESTU 
NOC A,NSKP 
LOA @,C777 
NCR A,NSKP 
LNS 1,K87 
NOAS 1,0SKP 
ISR @STALL 
NIOC DSKP 
LOA 2,KB14 
NTP 1,NSKP 
AND 4,2 
SURS 2,1,S7ZF 
EHALT 

LONP 


SETUP 


LOA A,TESTIU 


nac @,ASKkP 
LOS 4,01777 
DOB 4&,DSKP 
Loa 1,KB7 
NOAS 1,0SKP 
JSR SSTALL 
NINC OSKP 
Lis 2,*B14 
DIB 1,NSKP 
SUP& 2,1,57k 
ERALT 

LEOP 


SETUP 

LOA “,TESTU 
nnc Aa,NSKP 
LOA “4,03777 
oOB a,NSKP 
LOA 1,Kad7 
NNAS 1,0SKP 
JSR SSTALL 
NIONC DSKP 
LOA 2,K614 
Ann 2,2 
SUR 2@,1,S2R 
ERALT 

1aopP 
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4 
,CHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
ITHE FIRST 2 OATA CHANNEL 
ICYCLES AT THE BEGINNING 
10F A WRITE, . 


, WRITE Jf 


7STOP THE WRITE 
PACUSSTARTING MEMORY ADDRESS 
SACL BACTIIAL ENDING MEMORY 

’ ANDRESS 

PAC2SCMRRECT ENDING MEMORY 

3 ANDRESS 


CHECK PROPER CA REGISTER. 
SINCREMENT RY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
SCYCLES AT THE BEGINNING 
SOF A WRITE, 


,; WRITE }3 


*STOP THE WRITE 
SACRESTARTING MEMORY ANDRESS 
sACYSACTUAL ENDING MEMORY 

, ANDRESS 

FACS]SCORRECT ENDING MEMCRY 


4 AQDRESS © 


SCHECK PROPER CA REGISTER 
PINCREMENT BY ALLOWING 
ITHE FIRST 2 DATA CHANNEL 
SCYCLES AT THE BEGINNING 
SOF A VMRITE, 


y WRITE J! 


ISTQP THE WRITE 
PACBOSSTARTING MEMORY ANCRESS 
SACL SACTUAL FENOING MEMORY 

; ADDRESS 

SAC2zCORRECT ENDING MEMGRY 

5 ADDRESS 


psc wsfy ako cnalage uaniorsnae Satan sahabebenbn sate sug tas eh 2lard Sat, os! 


‘cy 6 at Sa 


. i a Ie RE END NN PE ION SEAT 


a ABA 


2AY7A 
V3377 
Vid2ZUM 
masons 
Vidi 2A 
esQas 
VidQU4 
A325 
ASZVG 
v 3207 
¥3210 
vs2it 
V3212 
As21a 
“ads2ia 


eS215 
3214 
3217 
VSO 
YSPAL 
“wIAAP 
“3225 
3724 
¥3225 
7 d226 
“3227 
AAQAA 
Vis2ai 
yaea2 
“s233 


"wa2a4 
waZ2a5 
2S256 
vs237 
A324 
“saeal 
Vv 3242 
AS2 4S 
“43244 
"WA2 65 
Ya240 
“vgza7 
03250 
vae54 
WI252 


MAIN 


AMHDS4 
GCAYISA 
“A SA33 
AQWVISI 
WADUSS 
D447 
4651.53 
APHTAS 
ABGZASA 
~AAAHA 
vH5433 
1139ea30 
140414 
AABHDAAD 
YAo2AS 


VAHO A { 
A2U1H2 
VASZASS 
vIuw1 92 
WA OMAAS 
Y244NC67 
VROLSS 
WAHLOA 
mARVISA 
waRaAna 
“ABASA 
LI GGCCe 
{46444 
ACPHD42 
APSA 


YAHD AY 
“AAS? 
AASV SSA 
Adu SS 
VA24SS 
A2aUA7 
VAISS 


YRALHS. 


ABID SSA 
ARYA GIA 
Y654$3 
{1 ava 
146414 
*iANDAD 
LAnHZ 4S 


N1838 


AiAhS 


N17: 


St TP 

Loa “4,TESTY 
nec 4,NSKP 
Loa A,07777 
Now w,NSKe 
Loa 1,KAR7 
OeAS 1,0SKkP 
JSR ®STALL 
NIOC USKP 
LH4 2,KH14 
NTR 1,NSKP 
ADDN a,2 


StRe 2,1,57K 


FHALT 
LaAP 


Se Tu? 

LUA %, TESTU 
AO A,NS*P 
Pha Vv,~CAL7 
NNR A,NSKP 
Lha 1,37 
Noss 1,0SkP 
IS? €STALL 
MINOC iSKP 
Lid A,kn14 
NyR $,NSKp 
AVN 24,2 
SuRe 2,1,57R 
FeAl, T 

1aQop 


SFTUP 


[fa 
AGE 
Los 


4,T¢e STi 
A,NSKP 
A, O37 
NES W,NSKP 
LPs 1,37 
NMAS 1,NSKP 


JS8 @#STS4LL---. 


NINC OSKP 
15d 2,K RIG 
NR 1,NSKP 
‘nn @,2 

Sina 2,1,57% 
FRAOLT 

LoaP 
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‘ 
ICHECK PPNPER CA REGISTER: 
SINCREMENT BY ALLOWING 
STKE FIRST 2 DATA CHANNEL 
CYCLES AT TRE BEGINNING 
TOF A WRITE, 


s WRITE J! 
7STOP THE WRITE 


PACHSSTAFTING MEMORY ANNRESS 
SACLSALTIUAL FNNING MEMOWY 


H ANDRESS 

PACQSCNRRECT ENDING MEMNMRY 
: ANLGESS 

CHECK PROPER CA REGISTER 


PINCREMENT BY 4LLOWING 
>THE FIRST 2 PATA CHAARNEL 
sCYCLES SOT TRE BEGINNING 
70F A WheITF, 


$ 4hPITE !8 


;STOP THE WRITE 
SALVSSTARTING MEMQURY ANHPESS 
PAFLSACTIAL FNPING HEMOWy 

; ANDRESS 

SACSSCORRPECT ENDING MEMORY 
H ADDRESS 


2CHECK FROPER CA REGISTER 
Z INCREMENT BY ALLOWING 
STHE FIRST 2 DATA CHANNEL 
sCYCLES AT TRE REGINNING 
sOF A WHITE, 


,; WRITE !3 


ISTOP THE KRITF 
PACMESESTARTING MEMORY ADRESS 


PAC{SACTUAL ENDING MEMORY 
; ANNRESS 
SAC2ECNKRECT EMOING MEMORY 
; ANDRESS 


A Muay, 


A3253 
AI254 
B3255 
43256 
A8257 
43264 
e3261 
Ww3262 
W324A3 


A3ZH4 
&3265 
“3266 
Y3267 
v3270 


n3271 
v3272 
“3273 
¥3274 
#3275 
73276 
¥3277 
HAGA 
~ISAal 
Bw33IA2? 
eSIAS 
e344 
MSou5 
VS3A6 
ASSV7 


MAIN 


“Ab241 N1B$s 


24152 
U3A33 
1A222°R 
U62a33 
AQSV6H7 
v6543S 
YABIJBHS 
YVBU293 


n654353 
1525246 
146414 
AAH2Z4A2 
VAb243 


vvus2at 
“v2ni192 
W63033 
yaenaa 
YUB2093 
VOAAK7Z 
265133 
ACAT64 
BAUNAIS 
YR5453 
152h|n 
{514va 
1446414 
AAK2ZS&2 
AAB24S 


SETUP 
LOA a, TESTU 


NaC A®,NSKP 
ADCZR a,a 
DOR A,NSKP 
LNA 1,*B7 
NOAS 1,0SKP 
JSR @STALL 
NIJOC NSKP 


NIB 1,NSKP 
SURZL 2,2 
SuRB& 2,1,SZR 
ER ALT 

LONP 


SETUP 

LOA 4, TESTU 
NnNC ¥,NSKP 
Ape. a,” 

NOR a,NSKP 
LDA 1,87 
NOAS 1,0SKP 
JSR @STALL 
NINC OSKP 
NR £{,NSKP 
SURZR 2,2 
INE 25? 
SUBS 2,1,57ZK 
ERALT - 

LOAP 


of NT 


“Als 


‘ 
PCHEGK PROPER CA REGTSTER 
PINCREMENT BY ALLOWING 
TTHE FIRST 2 DATA CHANNEL 
ICYCLES AT THE BEGINNING 
SOF A WRITE, 


$ WRITE J} 


STOP THE WRITE 
SACASSTARTING MEMORY ADDRESS 
PACLBSACTUAL ENDING MEMORY © 

; ANDRESS 

SAC2zsCORRECT ENDING MEMORY 

3 ANDRESS . 


CHECK PPOPER CA REGISTER 
PINCREMENT BY ALLOWING 
THE FIRST 2 DATA CHANNEL 
SCYCLES AT THE BEGINNING 
INF A WRITE. 


$ WRITE 3] 


ISTOP THE WRITE 
SACHSSTARTING MEMORY ANDRESS 
PACLSACTHAL ENNING MEMORY 

} ADNRESS | 
PACSSCNRRECT ENDING MEMORY 

} ANDRESS 


AYA? 


C331 
a i Oe | 
v3S12 
“IIS 
vasita 
or ie) 
AAALO 
ASSI7 
ADIPU 
ae | 
e3327 
A332 5 


¥YASA4 
vid S75 
VW3S24A 
U3397 
w3s3u 
VS S31 
wH3as2 
AdSSS 
VASS4 
e455 
vIdsdn 
03337 
vagan 
ev SS4i 
C3942 


“334s 
V%4464 
vag4o 
04346 
vasa? 
v soe 
rag) 


b3S52 


YASS 
Agia 
v3a355 
3354 
vsan7 
oa4au 
waa 
waa sAC 


em ath 


MH DAM NBAS 
47da1H2 
AAHASS 
e2u152 
VA412) 
LA SALA 
HA Sa43 
ADNADT 
@ALVISS 
VP HDAS 
ViAHDSD 
OWA SS 


YARDGO NDTIS 
EAALOA 
VANDA 
vAATA? 
s2aiPi 
LA Samira 
veAguss 
N2AWH? 
VAISS 
152524a 
“wEHA27 
AaBiuyadgs 
eAI7 33 
WAADAD 
VlhDA4ads 


vAhD4Aa NIA: 
“2aina 
mF ONSA 
wAwt ds? 
wPGI1 el 
172 dO ya 
AB SAAS 
‘Dian 
SALTY SS 
taQAPY 
Vn De7 
{Pm@QR 2a 
mALe ss 
Vb S7S8 
YAODELD 
Ab RDAS 


SETFi 

LCS 3,RUFF 

NOR 1,N0SKP 

L044 4, TESTU 
14 1,€17 ‘ 
ann 1,80 

ANE A,NSKP 

LO& &,KB7 


GOAS &,0DSKP 


TTRYT 
FRALT 
LONP 


SETP 4 

{4 1,80FF 
CN8 1,9SKF 
LOA A, TESTI 
LO4 4,017 
LOND 1,4 

AA =,NSKP 
LNA A,K a7 
AGs&s &,~DSKP 
SuRZl 2,23 
WATT 

MINE USKP 
SkPL:727 NSKP 
FRaLT 

LaooRr 


SETFI 

LOA {,KRUFF 
GOR 4,0SKF 
(Nb @,TESTH 
LOA 1,017 
Ann 4,0 

nan &,NSKP 
LDA 9,«is7 


NC4AS 4,0SKP 


SuR2ZL 2,2 
wATT am 
SuRZR ALA 
nna BP,NSKP 
SKPDZ NASKP 
FRALT 

LOAAP 


whe 


¢ 
SATTFMPT A COMPLETE WRITE 
S(FIRST WRITE WITH WC OVFLO) 
SQNE SECTOR 


SUNTT & + SECT CNT 
ISELFCY UNTT 


WRITE Jf. 
tw AIT LHAMS AR UNTIL INTERRUPT 
ITIMFOUT, NO INTERRUPT 


BATTEMPT TNO CLFAR "DP NONE" 
BwITH (C) PULSE, 


SFT "NP WONE" WITH & ORE 
SSFCTOR KRITE, 
SELECT UNTT 


ewe D Le ee 


PwWAIT 1HAMS AR ey Eb HOKE 
SATTEMPT CLEAR: 

27(C) PULSE ODES NOT 
CLEAR "DP DONE" FF, 


ATTEMPT TN RESET 
r'Me NONF" WITH "OP DaTaa" 
PANN "MATA AM, 


SET "NP DONE" wITH A fd SECT, 
ewRITE. 

SSFLECY UNIT 

SWKRITE $4 

swAIT 1HAMS OR UNTIL DONE 
PATTEMPT RESET 


"NP DATAA" ANN "HATA A" ONES 
PINOT CLEAR "DOP DANE", 


a Wv4s 


V3S63 
VAGA4 
WISAS 
G35SAH 
C3847 
U3s37A 
A337 1 
V3SS72 
43373 
v3474 
e375 
Vs 375 
03377 
AAAAA 
CS4P 1 


eJ4A? 
a: 8 ae 
AI4NG 
eaaads 
visdh6 
A347 
eaain 
e34aii 
3412 
723413 
v3d14 
A3415 
vaajyo 
“A417 
va42u 
n347i 


¥3422 
W495 
¥34624 
yaar5 
"WAAPH 
43427 
vaaau 
Yv34354 
vs4a3e2 
A3G33 
vaaa4 


V3435h. 


C3446 
V3437 
ASEEU 
yaad 
y3442 
¥W3443 


AIM 


WAHhA4A 0235 
U2G1 OU 
YVAKASS 
PAALS? 
AP41Zi 
42 fauna 
HE3ASS 
WonAGhT 
PALISS 
LROa2A 
WUo227 
VAIZSS 
vV4A3533 
406942 
WAGBIGS 


BARADAA 
w2a16u 
MAHAR SD. 
Au j{s2 
72?41215 
J2ASGHUA 
VASA98 
A2G0H? 
bAL1ISS 
{ROSANA 
V.ARB27 
WA ASB39 
VAVYURYD 
187414 
ZABBAD 
VAao2ad 


N24 


VAGHDAA 
M281 HA 
tAHASA 
APUILS2 


N25°3 


M2412) : 


LA SAKA 
VASYUSS 
UP2UAH? 
MAL{ 33 
152?52v 
~YOAC227 
Meas 
Viel gd GEA 
WIAPTL 
14.hava 
122414 
UAGRDAD 
VAnD2Z4S 


SE TP! 

LOA 1,8UFF 
NOK 1,NSKP 
LOA @, TESTU 
LDA 1,C17 
Ann 41,0A 

nonce @,NSKP 
LOA 4,KB7 
NNAS w,DSkP 
SURZL 2,9 
WAIT 
SKPI)7 
SKPo7 
FHALT 
LOOF 


NSKP 
NSKP 


SETP 4 

LOA 1,RUFF 
NOR 1,NSKP 
LO4 A, TESTI 
1.04 1,€17 
ANN 1,8 

NnC A,NSKP 
LOA ®,KB7 
Nn4S ¥4,nSKeP 
SuRZl 2,2 
wAITT 

NTA 1,9SKP 
LOA “4,Kn14 
ANT & “,1,S7k 
ER ALT 

LOOF 


SETPI 

LDA 1,RIIFF 
DNA 1,NSKp 
LOA A,TESTI 
LDA 1,017 
ADM 1,4 

noc a,NSKP- 
LDA A,Kd7 
NAAS @,0SKP 
SURZL 2,2 
WATT 

NIR 1,NSKP 
Loa W,RUFF 
LNA 2,C4M%2 
AGN 2,0 
SuAa 1,4,57R 
EKALT 

LOOP 


=43< 


IPCHECK BUSY*NONE 


SFOLLGWING A { SECTOR WRITE 


SELECT UNIT 4 1 SECT XFER 


pWRITE J 


ERROR IF 
mR "HP RUSY" 


SFE IF Ai § 
PHPITE CAUSES 


7SELECT UNIT 
twRITE J! 

SWAIT 1UAMS, 
s"REQI" NOES 


7"OP FLAG", 
P"NATA LATE" 


>CHECK ENDING MEMORY 
(CA REGISTER) 


yANNRESS 


"OP NONE" 


a | 


ECTOR 


a 


“QWAIT 1AOMS (OR UNTIL "DONE") 


"DATA LATE" 


/ 1 SECT XFER 


COR UNTIL 


NAT CLEAR 


RESULTS JIN 


STATUS, 


"NGNEN) 


TFOLLAWING A 1 SECTOR WRITE | 


tSFLECT UNIT / 1 SECT XFER 


swRHITE 33 


TWATT 1426S 
SACL SENDING 
SCORRECT ENOL 
1(RUFF I +40942 


NG 


( OR UNTIL 
MEMORY ANDRESS 
ADDRESS 2& 


» IN CACA) 


TENDING MEM ADDR ERROR, 


PACKEGNON 
ACL RBAD 


NOONE! 


) 


a Oy 44 


" 3aad 
74465 
A3446 
“3447 
ARARY 
r3a5i 
w3ah2 
v5 455 
“id54 
2aakd 
3456 
73457 


PpaAbbun 


346A 
Vv 3462 
23GRS 
wdGAd 
7 8465 


s 3as& 
, 4447 
w S670 
A447) 
LABT72 
73473 
e674 
$3475 
Viad7h 
v3477 
Sl 
way 
e35A2 
wands 
' #3504 
LASUD 
NSH 
“3507 


wa5tu 
e45il 
adie 
: ag Sa) 
v ahi 4 
e345 
Vs5t6 
Sap 7 
2 d5eV 
ASS? 1 
6 3522 
v3523 
“YiASDS 
vised 
vid 526 


ohAIN 


LANA aD 
(i Paliha 
AALS 
vIWTdHD 
¥2412) 
17 444A” 
HA ge ss 
(? 9 vA? b7 
vVALISS 
1A2S8eu8 
4G227 
VAGHASS 
Wa41se 
147 4.:a 
MAUR ED 
1902416 
VvibAa? 
HlnPar 


TRO GIA 
“P2164 
vAPrse 
viPA1TS? 
aAdat{7é 
irdsave 
VA SASS 
VAA~AnT 
wh1158 
pa252a 
YeH?227 
WAH 443 
¥P2un443 
17 ALi 
vwiPVAba 
1722414 
MAADSP 
VAD 4S 


VRAD AA 


wig her : 


oar i 
VPLS? 
"24174 
{P39 vr? 
HASAYS 
PAA 
Poti gaa 
{LAC Ze 
VANDA? 
wAdASA 
VA SR OS 
VODA? 
YEOP SS 


N268 


N278 


N2ARS 


SETP I 

LOA 1,ARUFF 
NGKH 1,NSKP 
LRA V,TESTH 
Loa 1,017 
arn 1,4 

ONE 2,NSKP 
Loa 4,Kp7 
NOAS A,USKP 
SUP2ZL 2,2 
aATT 

NIC 1, OSKP 
LQA 2,037 
Aw 2, { 

LUA @,KeTy 
SUReB 1,4,S87R 
EAL T 

Loar 


Se Tri 

LNA 3,8FF 
Aes® '@,OSKp 
LGA 8, TESTE 
LuiA 1,0 46 
AUN 1,40 

Natl A,N5Kp 
LOA U,KH7 
NA&S A,USKP 
SURZL 2,2 
WATT 

NJ 1,NS*pP 
LOA *4,C0V37 
Ann “@,] 

Lod S,kALuU 
Sua 1,%,57% 
Er ALT 

Lane 


SETP1 

LOA W,aurr 
NMA ,NSKP 
L(A A,TASTH 
La 1,716 
ANN 4,44 

ANC 4,NSKP 
pr 4 A, K€ 7 
NOAS ,08K°2 


SUR7L 2,2 
wAT] 

NPA 1,NSKP 
SKPH*T ASKP 
ErAL T 

Lone 
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SCHECK FOR PROPER ENDING 
INISK ANNRESS FOLLOWING 

71 SECTOR WRITE ON HEAD @ 
PSECTOR OA 

S"TNC SC" CAUSES "SC1=SCA" 
3TN KO FROM 41441 TN Auas: 
2AND SETS "Si", 


BERITE Lf 


BwAIT 1AA8MS (OR UINTIL "HONE") 
FREAD FNDING DISK ADDRESS ~ 


rMOSK NUT UNTT & 
sSECTGR = 1 


FERDIRG DISK ANDNRESS MNT 
PHEAN@W, SFECTOR@1, SCseu 


SATTEMPT A 2 SECTOR 
SePITE,. 

TFIRST ATTEMPT AT A WHITE 
TLONGER TRAN 1 SECTOR 


SSFLFCT UNIT ¢ 2 SECTORS 
PKPTTE ot 
PWAITT 144NS (UP UNTIL MONE"): 


TREAD FNGING DTSK ANDKESS 
tMASK OFF UNIT 4 


SENDING NISK ANURESS NOT 
SHE AN]@G, SECT=2?, SCs 
SACWEGNON ADNR, ACLSRAD 


SATTFRPT & 2 SFCTOR WRITE 


>SFLECT UNTT 4 2 SECTUCRS 
PWR ITE £4 
paATT 12"MS JOR UNTIL "PONE") 


SREAN STATIS 
TNO "DP NONE" 

FOLLOWING 2 SFCTOR WRITE 
P(AC1)BSTATUS PEG, 


a A’’45 


“A3527 
“03530 
¥3531 
¥3532 
43533 
03534 
¥3535 
A3536 
¥3537 
ASS 4u 
U3I544 
YA5A2Q 
n3543 
03544 
(63545 
V3546 
¥3547 
“355a 
“3551 
AS35452 
3553 


¥3554 
23955 
A3556 
43557 
v356U 
“ad5SAL 
v¥3s62 
M3543 
23564 
235485 


- #3566 


AS35467 
P3S7A 
V3871 
¢3572 
43573 
(3574 
V.357§ 
V3I576 
¥3577 
V.S6AW 


St AIN 


CMAAAI4A D293 


PAU16A 
WA2ASS 
AAULS2 
PauL5SA 
W24i74 
V531¥3 
A24117 
L294HAaA 
UB3E33 
ABARAG67 
Y615I33 


“4525ea 


Ab 207 
HEO443 
AIVISS 
1474nv 
REV2AL12 
192454 
“6942 
UAbadad 


ADOH?2 4A 
HPL ILOA 
YBQUaS 
VALS? 
VH3038 
(2AA67 
P61433 
15245249 
V.N6227 
VEB4SS 
f27A6S 
A3Z4A7A 
vse1sa 
143103 
17522a 
LASPUA 
2341353 


LA74VA. 


1292414 
VA6242 
YVAHKZSS 


NSAS 


SETP1i 

LOA @,RUFF 
NOR A®,OSKP 
LOA A,TESTH 
LDA 2,NTYPE 
LOA 1,C11 
ACNDL 2,2,SNC 
Lpa 1,C3_ 
ANN 1,Aa 

nnc a,OSKP 
LOA A,KB7 
NNAS @,NSKP 
SUBZL 2,2 
WATT 

Ore 1,NSKP 
Lbo4 2,C237 
AND 2,1 

LOA a4,C42¢ 
SURFS 1,4,S7R 
EHALT 

LONnP 


SETP1 

LOA @A,BUFF 
HOR A,NSKP 
LDA ”,TESTU 
NOC 4,NSKP 
LOA A,KB7 
NOAS H,USKP 
SURZL 2,2 
WAIT 

OIc 1,ANSKP 
LOA @,KHQ 
LDA 3,KB6 
LO4 2,NTYPE 
ANNDL 2,2,SNC 
MOVZR 3,3 
ANN 3,4 

LOA 3,CHW37 
AND 3,1 
SUR&® 1,4%,SZR 
ER ALT 

LOOP 
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« 
INSURE THAT "INC HEAD" 
IFUNCTIONS PROPERLY 
PTRANSFER 7 SECTORS OR 13_ 
SSECTORS DFEPFNNING UPON 
ITHE DISK TYPE 


3s 
TLOAN UNTT #& & & SECTORS 

WRITE 
swRITE $3 
PWAIT 10 MS (AR UNTIL "DONE") 
PREAN ENNING DISK ADDRESS eas 
?THRNwW AKAY UNIT # YZ20 
sACUSGO0N, HEAD@1 SECT#1 4/7 
yACLSRAD 
SCHECK "INC HEAD" 


"ADV HD", 


SATTEMPT 4 16 SECTOR wRITE 
IVERTFY CORKECT ENDING 
tO0ISK ADNRESS 


SUNIT & / 16 SECTORS 

SWRITE !! 

IWAIT {BAMS CORP UNTIL "NONE") 
SREAN ENDING OJSK ADORESS 
FSECTOR 4 

HEAD 2 


SKIP’ IF 2311 
HEAD 1 


SACLEACTUAL ENDING DISK ANDRESS 


PACABCORRECT ENDING NISK ADDRESS 
$1 16 SECTOR TRANSFER, 


aA AL46 


vAbal 
v36a2 
¥V3I6~A3 
e364 
VIOAS 
Yd HNO 
"BHAT 
“sAin 
ASAT 
@3oO12 
NSbIS 
v3614 
WwIo5d 
WSH10 
“3617 
YW SAO 
W3621 
A362 


W3073 
AICAS 
£3025 
*3A26 
“3697 
A3b63u 
ASAD 
warns 
YAABS 
wv had 
y S85 
wiihdo 
23637 


C364u- 


“Ina 
e3h42 
%3h493 
43H 48 
Ana 
436046 
43047 
PaaRSGuU 
waA54 
“so5? 
AAAS 


vs654 
LARD 
v 36556 
v3657 
AAAAY 


MATA! 


mUYoIaA HN3Ls 
SO”VIAU 
MAQNSS 
APAVSP 
“A SUSS 
2ZIWART 
Ho a ae ee 
182520 
“AH227 
WAAL HA 
V2AaUHL 
24A7 3 
123640 
143470 
hES5d53 
172414 
“A624? 
LAGP4S 


AAQK2ZAA 
vOn{T 5A. 
v34527 
191112 
YRUALS 
15146.8 
Le1LPV2 
15140 
ALAA 
“UPAaGLS? 
Again 
DAO SS 
POAT bIA 
VAQUASS 
YAVART 
PALVIAS 
1.525824 
“PHOH927 
ABAAAS 
U2ea.? 
LA7 awn 
1endja 
MARDLD 
HRPAD4AS 
MW 4AB 


D323 


er SEAS 
AAO ATZA 
ml ah &6 
(44 A76 


rayne d NAN4S 


~£oa 


SETP3) 

LOA A,RUFF 
DOR A,NSKP 
LOA A,TESTU 
nae A,NSKP 
104 “A,K7 
NO4&S W4,NDSKP 
SUPZL 2,2 
WAIT 
LIA 
LOA 
LOA 2,kKB3 
£0n 
4AGn 
OJR 1,NSKP 
SiiAe 1,0,S7R 
ERALT 

LGONP- 


*, BUFF 


SETFI - 
LDA A,NTYPE 
LOA A,NADLel 


MOVL# @,A,SZC 


JeP +4 

JNO 2,2 

“VA 4,¥,S8ZC 
Intl 3,2 

LAA A,Aa,2 
LOS 3,TeESTU 
ANN 1,4 

ANC A,DSKP 
La VW ,RUFF 
AGR A,NSKP 
A,KH7 
ANAS ¥,YSKP 
SURZI 2,2 
WATT 

PTA 3,OSKP 
LOA %,PADA 
ANI A, 

SHB el, S7k 
ErAlT 

Lune 
JnP O33 
+i 

AJA 
4536 

LiL ATA 
LAA D | 
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7 


PATTEMPT A 1A SERTOR wRITE 
SAND VERTFY CORRECT ENDING 
}MEMNRY ADDRESS 

TUNIT # / 16 SECTORS 
SWRITE 3! 


WAIT 1409S (OR UNTIL 
SSTARTING ADNRESS 


"OONE") 


_& Two 


, 14,800 


PENDING MEMORY ADDRESS 

TERRNR FOLLOWING A 16 SECTOR — - 
WRITE | = 
saACueGoOo0n 

,AC1SBAD 


*CAUSE "ENN AF CYLINNER" 
27TNO ACCUR DUPING A 
72 SECTOR WRITF 


CARTRIDGE OFSK 


sSKIP IF 2311 NISK PACK 
72314 AISn PACK 

IGFT PROPER DISK ADDRESS TO 
sCAUSE "FOC" 
sANDD IN UNTT & 

;FINALLY 


3LQOAD MEM ADDR, 
pWRITE $3 
ywATT 12AMS (OR UNTIL "DONEN), 


FREAD STATUS 


"FAC" RR "FRR" AR "DP NONE" 
SFOALLOWING wRITE OVER FENN CYL 
PACUASEXPFCTEN ENDING STATUS 
PACLEENDING STATUS 


mNN 


SCART HEANM Y 
72311 
72414 


"NP 


SECT 18,:2 SECTIRS 
HEAD 9 SECT 5b 2 SECTORS 
hEAG 23 SECT 13 2 SECTARS 

DONE", "FOC", "ERR",STATUS MASK, 


-47= 


aA ANVAZ7 MAIN: as 
‘ 
V3661 “MhP4A 0398 SETPS PATTEMPT A READ 
Y3H62Q2 APVID? Loa a,TESTY $( FIRST READ J}I1) 9 
23663 424121 Loa 4,C017 
¥3644 1L2GANR ANN) 1,4a 
VA66S5 W63733 occ a4,9SKP TUNIT # / 1 SECTOR XFER 
Y3666 W2RA74 LOA @,KB2 | 
“W3657 WA2a3S3 pOoR W,OSKP ICA @ 20AnAaG 
W357R% 1A2Z4n0 SUR a, 
NQ3671 VbL1S3 NOAS 9,0SKP PREAN 1] 
C3672 YH252a SURZL 2,2 
V.3673 “WN6227 WAIT rWAIT 10@MS (OR UNTIL "DONE") 
¥V3674 £64433 NTA 1,NSKP tREANM STATUS 
"3675 1251413 MOVL# 1,1,SNC $ OONE ? 
W3675 AAHDAD FRHALT | zNN "OP DONE" 
V3SE77 ARb6243 LaaP PACLSBAD ENOING STATUS 
V3E7TVA ANKAGH NIB4AS SETFI ATTEMPT A READ 
V3S7OCL “apun{s2 LAA O,TESTI , 1 SECTAR 
P37AZ V24121 LNA 1,017 F 
C47C4$ 125002 AND 1,0 
M3704 ABZA33 POL A,NSKP SUNIT # / 1 SECTOR XFER 
w37RH V2ZAATA LNA @®,K8? : 
“A724 CPBPABA NOR W,NSKP 1CA B QAO 
AA7Y7 1AV4AA SUP @,a 
2I7I“A VAISS -AOAS W,0SKP FREAD J] 
ASTI 1562524 SUBZIL 2,2 
£3712 An6227 WAIT PWAIT 1AA%MS (OR UNTIL "OONE") 
W3713 RA4433 NTA 1,0MSKP 7RFAN STATUS 
A754 w2QuU7O0 LOA ®,KK14 S"DATA LATE" STATUS ON 
w3715 179614 AND® 1,,SZK $A 1 SECT READ 
“3716 4RB242 FHALT PACLZKAD ENDING STATUS 
V3717 eAG24S Lane 
Y372R WALH24A N58 SETP 1 SATTEMPT A. REAN 
U37P1 72N15? LOA @,TESTU ; 1 SECTOR REAN 2ZObLAO 
W3722 CA4121 LOA 1,C17 ic 2075 TF 
“v37945 LASAUA Ann 1,4 | 
W3724 ABSASS nna a,NSKPp y UNTT #& / 1 SECT XFER 
(3725 V2nA7 4 LOA A@A,KB2 
YA37TAAR ABPASA OPP A,NSKP - FCA = PURDAA 
(3727 JUQAAA SUR 0,0 
eA73A VALISSR NOAS n,USKP SREAN !4 
va7a3y LSVh2e SUBZI 2,2 
Y3A7RP YPADQ7T WATT PwWAIT {UAMS (OR UNTIL "DONE") 
GSP AS Vb S8 OIB 1,NSKP TREAD STATUS 
G3784 VPrr17 LOA @,C20N44H PENDING MEMQRY ANDRESS 
V37385 1272414 SUR#® 1,4,5Zk SIS WRONG FOLLWOING 1 SECT READ 
V3736 YAI942 FHALT rACWESGNON 
W3737 “WVO6P4S LONP PACYSBAN 


a Anak 


via? av, 
“3741 
73742 
v.37 45 
3744 
WAZ aD 
$7 66 
“3747 
ASTH5A 
“w3751 
“W3752 
“3753 
“3754 
¥v3755 


3750 
V3757 
37 Aw 
PAa7al 
AI7TAE 


8374S 


S3a7A4 
ea7AS 
Y37456 
vd74A7 
rA77ia 
377 4 
43772 
Vv3773 
v377a 
AS37795 


MAIN 


VAHDAAN 
ADWI 52 
V24121 
L2AAua 
WEIL SA 
Vi2DUVA7 4 
VA2QR3A 
VANLS3 
L252 
~A5227 
AQKIBIUIP 
125414 
ViA5D42 
VAG? 4A 


WPARLOA 
Ay1Vve 
SHU STA 
WAAD4AN 
W2AVIS?A 
HP? 4274 
{Agave 
“WARAAASA 
VAVATA 
vAPAVSIS 
Nhar1 33 


152520. 


HAG?227 
{251138 
rOn249 
WuUE2ds 


N3AS 


N37 3 


SE TRI 

Lvd 4, TESTU 
LOA 1,C17 
Anm 4,0 

POC 4,NSKp 
LDA A,KK2 
ANR A,ZNSKP 


NINOS DOSKP 
SURZL 7,2 
wAaTT 


Lob 4,079 
AnNs 1,0,S7k8 
FRALT 

Lone 


LOA 4, NTYPE 

MAVL "4,876 
JRP Fi 

Se TPy 

Lie4 4, TESTHY 


toda 1,82 


Aon (,7 
AGE “w,NSKP 
LOA 4,KK2 
ACA WZNSkP 
NIQOS OSKP 
SuRQ7i 2,9 
wATT 


MOVL#® 1,4,SNC 


FRALT 
LGONP 


oF AT 


“swalT teeMs (OP UNTIL 


SATTEMPT A REAN 
391 SECTOR REAN 


FUNTT # 7 1 SECT XFER 


CA S&S AYALA 
IREAN J] 


twAIT 170AMS (OP UNTIL 
FACLESTATUS 

SERRNR STATUS FOLLOWING A 
SRFAN, "“SEFK Ef", Nk "ANNKRESS/ 


"OUONE") 


SUNS AFF" 


21F CARTRPINGE NISK 

TGOON'T ATTEMPT A FORMAT 
IMGDF READ 

SATTEMPT A RFAN 

PIN TRE FORMAT MNDE 

P(FIRST WSE OF FORMAT 4ONE) 


; 


sueIT # FURMAT MONDE AIT 


TCA = 2unaU 
IREAN!! 


"TONE" ) 
FACL=ESTATUS 


SRN "NP MONE" FOLLOWING FRT Re An 


SCHELK "F NONE","R/e6 LONE" 


andy 


Y377¢ 
A3777 
Yona 
“ndauv{ 
YV4AU2 


Y4ava3 
WAAUS 
w40a5 


2AGAG 
W407 
A4VLA 
adrj{} 
eagle 


V4nid 
A4U14 
“A4A15 
P4un{L6 
Vi4ai7 


VibAAY 
V4Sn2)} 
nA4a2e2 
A4APS 
W4n24 


ASA25 
n4a2d6 
24027 
UbASY 
wavs 


GALA? 
A443 
A4N34 


04435 
A4nN36 
4037 
AA 4s 
vdti4a|d 


4442 
manag 
HAV 4a 
nAVvad 
“i 4u4dob 


A4n47 
Ysasa 
PSS! 
A4YK? 
-AEUSS 


MAIN 


VAB2S87 E13 
AA6262 
WDAHAKA 
ABP 42 
“VAA422 


AAB256 
VEOS4H3 
AABBUS 


AAGB26A 
ABBAS 


AAABY7 


WA6242 
“wun4ai?e 


CA6957 
waA72aus 
“WAvAL7 
VAKD4O 
uRudand 


YAB261 
YAGHAAS 
VA72™MN5 
VANDA 4SP 


VA6243 ELES 


AA6237 F2:. 


WVAb262 
wAQaAua 
AKb6242 
AARLZ2 


UA6256 
An54WP 
VP 6615 


UAG20A 
UAKBAS 
YAnai7 
U~b242 
AAAS? 


AABPST 
OAT 2D 
IAAAAL7 
AABOA2 
AAY ANS 


VAH2?E4 
“AbBUS 
AATPUS 
YVA6242 


veo2és FOE: 


JSR @ISET 
DOSEK 

“ 

EXHALT 

JMP ELE 


GENQDAT 
ZEROS 
PRGEEND 


WRITE | 


PRGEND 


PEAD . 
PRGEND + 4A) 
17 

EHALT 

JMP FILE 


CHELK 
PRGEND. 
PRGEND+4A0AQ 
FERALT 

LOOP 


JSR @JSET 
NGSEK 
A 


~FRALT 
_ JMP F2E 


GENDAT 
AMES 
PRGEND 


WRITE 


“PRGEND 


17 
FRALT 
JMP FE 


READ 
PRHEENL+4ANn 
17 

FRALT 

JsP FOF 


CRKECK 
FRGEND 
PROEEND #444 
FH AL T- 

Looe 
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¢ 
$00 SEEK/wWRITE/READ 
CHECK DATA 

ISEEK CYLINDER ZERO 


TERROR DURING SEEK, ACI®STATUS 


bSKIP REMAINDER OF TEST 


GENERATE DATA 
SOATABALL ZEROS 
S0ATA RUFFER ADDRESS 


30N THE &RITE 

SOATA BUFFER ANDRESS 
sHEAD@A, SECT-A%, 1 SECTGR 
FERROR IN WRITE, ACISSTATUS 
$SKIP REMAINDER QF TEST 


2REAN THE MATA 

IDATA BLIFFFR ANDRESS 
JHEAN=@A, SECT=H, 1 SECTOR 
SEPRNR IN READ, ACLESTATUS 


ICOMPAPE DATA RUFFERS 
?GNND BUFFER 
*MUESTIONARLE RUFFER 
JERRNR, ACAsSGBNNO WARD 
,AC1sBAlD WORD 


30M SEEK/w®RITE/READ 
sCHECK [)ATA 
SSFEK CYLINDER ZERO 


FERROR DURING SEEK, ACLESTATUS 


SKIP REMAINDER OF TEST 


IGENFRATE DATA 
IDATAZSALL ANFS 
INATA BUFFER ANDRESS 


9N0 THE WRITE 

TDATA RUFFER ANDRESS 
PHEAN=A, SECT@A, 1 SECTOR 
ZERROR IN WRITE, ACL=SSTATUS 
SSKIP REMAINDER OF TEST 


TREAD TrE RATA 

DATA BUFFFR ANDRESS 

THF AN@A, SECT#A, 1 SECTOR 
PEQRNR IN RPEAD, ACISSTATUS 


ICOMPARE DATA RUFFERS 
7G00N RUFFFR 
QUESTIONABLE BUFFER 
TEPROR, ACBZGOND KNRD 
rACLsRAD WORD 


a Avwsis 


Vv. 45546 
vwAanS5 
424546 
w4ash7 
4 fA 


VALAY 
V.AvA? 
vV4eRn 


vauha 
LS AZRKS 
“be 66 
AAV? 
VaAnTE 


way71 
4 4u72 
AaAVIS 
wan7a 
W4iA7s 


' 4376 
GP AAZT7 
RAO 
ayn) 
vajae 


w4Af as 
C4aLHS 
Wala 
yapaé 
Vala? 


i 
MAYIL 
Y4112 


y4ita 
“wALia 
“v4é{in 
VAYA 
46417 


AGYPW 
Ag YT? \ 
y¥447?e2 
v4123 
WAL? 4 


VY O425 
BAL? 
vidj{A7 
ud{ su 
véajosi 


mAT™ 


VV62 37 
VP HDH? 
ARAAYA 
AAAAS2 
veyvag? 


VPADSA 
VEOR4S21 


WYARAZS 


wAHIHN 
me HAW] 
WAAAL7 
AANDAP 
4AMAL2 


“Aar57 
APT AWS 
AAAALT 
VANDA 4? 
AAR AUS 


“ARIK 
WARS 
WaAT—OYS 
“LEAD AD 
V2H24aS 


w4n2 57 
APADHAD 
YAAUA 
uhA249 
VMwAae? 


AW HDA 
ANASOLS 
PARAWS 


NARQOA 
WARAAS 
‘NAINA 7 
ARADO 4) 
AAWSL2 


ROnRDST 
YAT2Ia45 
VAYALT 
AYVADSI 
NAY BAR 


VPBQ20S 


YORE” 


AATIAS 
HAH? 4? 
AYO? 4S 


ES: 


Far 


JSR *#]SeT 
NOSEK 

7) 

FRALT 

IeP FE 


GENDAT 
NYHSED 
PeEGEND 


WRITE 
PREENID 
$7 
FHALT 
JmuP FOSE 


READ 
PRGOENDSOMyY 
17 

FRALT 

JMP FSF 


CrELK 
PRGEEND. 
PRFGENUS4AG . 
FRALT 

LaonP 


ISR S]StT 
NnSEK 
fa 


FRALT 


— IhP E4F 


Ge nat 
ALT} 
PRGENI 


wRITE 


PREENG +. 


17 
FRALT 
IpP FOE 


PEAT 
PRGOENII 4400 
{7 

FRALT 

he Fae 


CrEC 
PRGEMNTD 
PRGENID + 4uy: 
FRALT 

LOOP 
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50M SEFK/WRITE/READ. 


iCHELK 


DATA 


ISFEK CYLINDFR ZERO 


SERROR DURING SEEK, 


ACiBSTATUS 


TSKIP REMAINDER OF TEST 


GENERATE DATA 
INATAZSNUMBFRS An-377 
DATA HUFFFR ANDRESS 


700 THE wRITE 
TNATA RUFFER ANDRESS 


THEAN@U, 
TERROR IN 
ISKIP REMAINDER OF TFST 


SFCT#=#, 


WRITE, 


TREAN THE NATA 
sDATA RUFFER ANDRESS 


SECT#A, 


TERROR IN READ, 


1 SFCTOR 
ACisSSTATUS 


1 SECTOR 
ACLSSTATUS 


TCOMPARE DNATA RUFFERS 
sGNON RUFFER 
QUESTIONABLE SUFFER 


FERROR, 
BACLT SRAD 


ACA26B0ND wORD 
wORD 


200 SFEK/wRITE/REAN 


*CHECK DATA 

?SEEK CYLINDER 
SERRAR DURING 
7SKIP REMAINDER OF TEST 


IGENFERATE DATA 


SONATA PATTERN = 


700 THF WRITE 


SECT#2, 


SERRNR IN WRITF, 


iSKIP. 


;RKEAD 
PQATA 


rhe Ane“, 


TRE NATA 
RIIFFER ANDRESS 
SECT#, 


TERROR JN READ, 


ZERN 
SEFK, 


AC{BSTATUS 


iviaivi ETC, 


S0ATA RUFFER ANDRESS 


IDATS BUFFER ANDRESS 
THE AN@f, 


1 SECTOR 
ACLESTATUS 


REMATNOER OF TEST 


1. SECTOR 
ACL=SSTATUS 


COMPARE DATA RUFFERS 
2GN0N RUFFER 
PQOHESTIGNARLF RUFFER 


TERROR, 


PACLSKAD wORD 


ACKBEBOND wORN 


a AyS4 


V4432 
u4i13s 
24134 
943435 
W4136 


w4i137 
G4i4v 
adil 


96142 


u4i4s 
A4144 


“@4i4a5 


4146 


W4147 
vayhv 
Yai 
#4152 


waiss 


Y4154 
4.4455 
4456 
743457 
“w4aj{b6y: 


MAIN 


U@6237 F553 


AAGB262 
VAWAVA 
WAH2ZaD 
YAAL22 


VvAb6254 
WA5413 
“UA66uUS 


AABD AA 
AN6HUK 
UAAAS7 
“As2se 
amusa12 


“A257 
YVATAUS 


YAAQ17~ 


WAb242 
HAK4S 


ViABQ6 4 
YAGHAKS 
MATZ 2VH 
IAAGBAaD 


“P6243 ES5ES 


JSR @ISET 


DOSEK 
4) 
EHALT 


JMP FS5E 


GENDAT 
AL TY. 
PRGEND 


WRITE 
PRGENL 
17 
ERALT 


JMP EDF 


READ 


PRGEND+4AaN 


17 
FRALT 


JMP ESE 


CRKECK 
PRGEEND 


PRGENO+4040 


EWALT 
LOOP 
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10N SEEK/WRITE/REAN 


SCHECK DATA 


ISFEK CYLINDER ZERO 


PERROR DURING 


SEEK, 


ACL sSTATUS 


ISKIP REMAINDER OF TEST 


IGENERATE NATA 


DATA PATTERN & A101918 ETC, 


2DATA BIFFER ANDRESS 


800 THE WRITE 


SOATA BUFFER ANDRESS 
SECTeA, 
ERROR IN WRITE, 
7SKIP REMAINDER. OF TEST 


PHEAD@A, 


PREAN THE MATA 
IDATA BUFFER ANDRESS 
SECT<A, 


1 SECTOR 
ACL ESTATUS 


1 SECTOR 


SERROR IN READ, ACISSTATUS 


COMPARE DATA BUFFERS 


3GN00 RUFFER 


QUESTIONABLE BUFFER 
ACASLGND WORN 


ERROR, 
PACLSBAD WORN 


a Av? 


A4iF1 
v4}42 
v4i{43 
“4164 
74165 
CALAE 
VOlE7 


vidi7u 
“v417) 
“4172 
n4375 
C4174 


Vv 4175 
“4176 
¥ 4177 
4%4PMe 
PA42al 


AAV?) 
AEQAS 
742UN4 
A425 
YA2AG 


442017 
He h2lu 
“742114 
V¥6212 
vézis 


MAIN 


A214 
W4njad 
YAHAS7 FK3 
UAbP69 
APEAL(A 
VAH2A4) 


UAAE2Z4S 


SAR et 
fau{4ao 
AAG256 
AAHIAL7 


AABRAYS 


ZAB2OW 
GAHAES 


YRPUAL7 


WAKDa2 
WAMALD 


AYNB257 
WAATAVA 
“ngyajy7 
AMAH?P 4D 
Vanav'S 


“WAKA 
VERAES 
AATAWS 
CUBR a2 
“AAbGAd3 FHES 


LIA “A,RPANDOM 
STA A,RELWAN 
JSR SJSET 
MOSEK 

a 

FRALT 

JMP EF 


Lod ”,RELRAN 
STA 2,RANDOM 
BENG AT 

Q AK 

PRGENN 


WRITE 
PRGEND 
17 
ERALT © 
JP F6E 


RE AU 
PREREMD +404 
17 

FRALT 

JuP FOF 


CHECK 
FRGENT) 
PHREN(} +4420 
ERAT 

LOOP 


752= 


SOO SEEK/WRITE/REAC 


SCHECK DATA 


SSFEK CYLINDER ZERO 


SERRNR DURING 


SEEK, 


ISKIP REMAINNER OF TEST 


IGENFRATFE PATA 
SDATA = RANDOM 
SPATA BUFFER ANDRESS 


SON THE WRITE 


SNATA BUFFER ADORESS 


SHE ANAA, SECT, 
SERROR IN WRITE, 


1 SECTOR 
ACI=STATUS 


SKIP PEMAINNE® OF TEST 


TRE AN THE PATA 


sNATA RUFFER ANDRESS 


1 SECTOR 


SERROR IN READ, ACLESTATUS 


TCNPPARE DATA RUFFERS 


7GNON RUFFFR 


FQUESTIONARLE RUFPFER 
TERROW, ACHMSGUND wnRD 


3AC1s8AD wORD 


ACiaSTATUS 


3 

; 

’ 

? THERE AND WHEN THE DATA AT CYLINDER @ IS 
a | 

3 


ipiscusston OF TESTS £7/E8 AND ES/ELA 


; AT THIS POINT IN TESTING IT HAS BEEN DETERMINED 
ITHAT REANTNG AND WRITING CAN BE PERFORMED CORRECTLY. THE 
SNEXT FOUR TESTS ARE A CYLINDER ADDRESS CHECK, CYLINDERS 
SARE FIRST SELFCTED IN ORDFR (AH312) AND DATA EGUAL TO THE 
CYLINDER NUMBFR IS WRITTEN (TEST E7) ON HEAD=@ 


fSECTOR|@A OF EACH, THE FOLLOWING TEST THEN READS THIS DATA 


PBACK IN THE SAME SEQUENCE IN WHICH IT WAS WRITTEN, IF ONE 
ICYLINDER IS WRITTEN ON MORE THAN ONCE OVE TO A CALWAYS @ OR 
PALWAYS 1) CYLINNER ADNRESS BIT LINE AN ERROR WILL SHOW UP 
sIN THE NATA COMPARE CHECK, 


I.E, TR "Cyl 4" 1S ALWAYS A ZERM THEN AN ATTEMPT 
TO SEEK TO CYLINDER 4 ACTUALLY SELECTS 
CYLINDER GO, DATA WORDS OF "4" ARE WRITTEN 


LATER REAN AND CHECKED IT WILL BE "4" WHEN 
TT SHOULD BE "Aa", 


TESTS E7&E5 CHECK ALL CYLINNERS IN SEQUENCE Gd12 
PAND TESTS E98F1A% CHECK THE CYLINDERS IN ORENER 


“gFROM 3142 TC 4, USING THE COMPLEMENT OF THE CYLINDER 


INUMRER AS THE DATA, WORDS, 


~53= 


a 854 


04214 
AG245 
*~avjb 


2 4247- 
242oe 
4274 
vy 4222 
CA2Z23 
"42204 
wa?2n 
WwaeI& 
4297 
A4230 
vA2di 


“WAPI2—> 


424233 
vWd2sa 
wd23d 
2A93on 
44237 
AB24A 


“474i 
r6242 
4243 


% 4244 
042465 
vd24h 
v:47 47 
WA2KU 
va2hi 
W4252 
2425s 
wAPha 
7 O255 
2429086 
La2s7 
vAgAY 
vdiPh| 
vy 4242 
“waZh3 
C4244 
Aa?AS 
Vv S206 


MAIN 


grave 
Aaa 
vVAh237 


AAA2Pa2 
ALAA 
“6242 
Covi as § 
“Y~AHPHEH 
vP5417 
A4HbwW4A 
VAG2ADA 
WAHAAS 
WAAAI7 
ViAG?A4LD 
AAVANL 
WRA243 
v1A764 
“wAuTOS 


0294627 


122427 
WRAATSA 


{A244 
VW4HS03 
WABPAS7 


NAAZHK? 
VASNALOA 
“VAHh242 
ACM4LP 
OAG25S7 
AP HAS 
mAV i 7 
VA07 42 
VAY AWS 


YORT7T 4S. 


A2V707 
1??P414 
Wem? aD 
ARDS 
WEu7od 
vi2AATA? 


wW2Aarv7? 


17970427 


VYOAZ DSS, 


E715 


F7E3 


FR.28 


“vy 


SUR aA,A 
ST4 A,F7,1 
JSR @]SeET 


NOSEK 

Vv, 

EXALT 

JMP E7E 
GENUAT 
CYL» 
PRKGENI) 
WRITE 
PPGEND 

{7. 

FRALT 

JeP +i 
L.QAOP - 

IS7 F7,1 
Lo4 “v,F7.1 
LAA 31,0312 
SURZ 1,45SRN 
JMP F7 


Stik A, 


STA ®,EA,1 


JSP @1SteT 


NOS¢t« 

a 

FHALT 

IMP FRE 

READ 

PRGREOND 

17 

FRALT 

IMP FAF 

LOA 1,8bA,? 
LNA 9,68, 
StiBha J ,i,S7R 
FRALT 

Lore 

TSZ FRI 

LOA A,F8,4 
LDA 4,6 312 
SURZ 1,0,S8KN 
JmP FS 


aS au 


PERRNR 


t 
CHECK, SEE OISCUSSION 
WRITE ON HEADOW, SECTOR=% 
SOF EACH CYLINNER, IN EACH SECTOAR DATA 
ZFEQUALS THE CYL 4, WRITE IN ASCENDING 
SORDFR FROM CYL YA TO $12. 
SEEK . 
sCYLTNNER NUMBER (IT CHANGES) 
ZERROR DURING SEEK, ACLESTATIS 
sSKIP TON END OF TEST 
IGFNFERATE DNATA 
SANDRESS OF NATA GENERATOR 
DATA RUFFER ADURESS 
SWRITE 3} 
MATA RUFFER ANDRESS 
S0ISK ADNRESS 
SERRNR NURING WRITE, 


7CYL. ANNRESSING 
PPRECENING E7. 


ACLESTATUS 


s(F7.,33=SCYL # 
209 JT GQNCE FOR 
SEACH CYLINDER 


ICYLTNNER ADDRESS CHECK, SEE NISCUSSION 
PPREVINUS TO TEST EF, kKEAD FIRST SECTO® 
SNF FACK CYLINDER AND CREEK FOR PROPER 
DSTA, TN EACH CASE CATA SRNULD EQUAL 
ITHE CYLINDER #, 

7SFEEK 

SCYLINDER NUMBER (IT CHANGES) 

SERROR CURING SEEK, ACLESTATUS 


SRF AT) 

2NATA BUFFER ANDRESS 
PNISK ADDRESS 

DIRING Rea, 
7SKIP TO EMD OF TEST 
SEIRST wORD JN PATA RUFFER 
ISHONULN = CYLINDER 2&8 
,aACWN2eENONn 

gACL SRA 

SRFAN THF TEST DESCRIPTION 
REPEAT THE TEST FOR 

7F ACK CYLINDER 


ACiscSTATUS 


A AwSS 


46267 
4274 
¥V627} 


4272 
V¥42783 
“4276 
04275 
V 4276 
v4277 

43ay 
WASAL 
4302 
“ZA3A3 
VASA 
ASAD 
04306 
C4307 
“O31 
“udg3i} 
£43812 
nasties 


AAS{L4 
P4315 
A316 


¥4317 
“Yasan 
ABS2I 
04522 
_ “bars 
94324 
~ w4375 
W4326 
vase] 
P4A33N 
CASAY 
e43ge2 
Va353 
w45d4 
v.4.535 
W436 
H2337 
GESAU 
v4344 
P4342 


MAIN 


OPO”VvAW7 
yavaus 
WA62357 


HAKBQH2 
VAGALA 
“AAGBD42 
vAanalt 
UA6256 
HAHALS 
vNAe6sud5 
WABH2ACA 
HAGEWS 
AAAAL7 
WAb242 
AAAS 
UPb243 
U14764 
vanant 
u2A70?2P 
1C11 us 
AAAT5S&A 


Vi2ADY7 
A4AAAS 
VAGB2S7 


AA H262 
ARAAWYA 
Yabo 4d 
“~AYVALS 
AN6ADS7 
BABA 
QAVALT 
AAOHDAP 
AAU AVA 
VA677 4 
ADA~TH7 
{RAere 
perntsa 
AAHDAD 
ViABAAS 
21476? 
AMAADS 
UPATOA 
a Oe as 
QAR754 


E9.18 


E1A,18 


E1A.,2: 


ELAEt 


LOA @4,€03512 
STA A,E9.a14 
JSP: @ISET 


NOSEK 

“a 

FHALT 

J¢eP ESE 
GBENDAT. 
AYLNC 
PRGEND 
WRITE 
PRGENU 

17 

EWALT 

IMP +i 
Lonp 

OSZ E91 
JuP +! 
LRA A,EX,1 
MOVL @,%4,SNC 
JmMP EQ 


A,C312 
A,FAIA, 14 
SISET 


LOA 
STA 
JSP 


NASEK 


1o’%R 


-EHALT os 


JMP EAE 
READ 


” PRGEND 


IMP FYUAE 

LOA 1,8E1H,2 
LO& A,FLA,L 
CoM a, 

Stir a 1,%4,SZR 
EHALT 

IOP 

NS7 Fiat 
TEP tl 

LOA A,ELA,! 
MOVE A,Y,SNC 
JMP EO 


eE DT 


-55- 


-¢ 
ICYL. AODNRESSING CHECK, SEE OISCUSSION 
PPRECEDING TEST E77. WRITE ON HEAD=@ 
ISECTOR=A, OF EACH CYLINDER, IN 
PEACH THE DATA WORDS EQUAL THE COMP, 
30F THE CYL #,. WRITE IN DESCENDING 
SORDER FROM CYL 312 TO OO, 
SEEK 
ICYLINNER NUMBER (IT CHANGES) 
SERROR OURING SEEK, ACiIsSTATUS 
ISKIP TN END OF TEST 
IGENFRPATE OATA 
PADDRESS OF DATA GENERATOR 
IDATA BUFFER ANDRESS 
WRITE | 
#DATA RUFFER ADORESS 
20ISK AONRESS 
JERROR NURING WRITE, AC}SSTATUS 


7(EY,1)SCYL & 


700 IT ONCE FOR, 
TEACH CYLINDER 


TCYLINNER ADNRESS CHECK. SEE DISCHSSIO: 
7PREVINUS TO TEST E7, KEAN FIRST SECTO: 
20F EAChK CYLINNER AND CHECK FOR PROPER 
IMATA,S IN EACH CASE DATA SHOULD EQUAL 
ITHE COMPLEMENT OF THE CYL # 

tSFEK 

SCYLINDER NUMBER (IT CHANGES) - 

SERROR OURING SEEK, ACI®STATUS 


sREAND 
DATA BUFFER ANDRESS 


“-BOTSK ADDRESS 


FERROR DURING READ, 
;SKIP TO ENG OF TEST 
tFIRST WORD JN DATA BUFFER 
rSHOULND 2 CYLINDER # 


ACLZSTATUS 


;ACHEGNNN 

saCLsBAn 

PREAN THE TEST DESCRIPTION 
REPEAT THE TEST FOR 


EACH CYLINDER 


AP5GO MAIN 
a 
SOISCUSSTON OF THE SECTOR ADDRFSSING CHECK, 
(TESTS FLI/FI2 AND ELS/EL 4) 
USING CYLINNEP@A, HEAN@A TEST E11 wRITES ON 
PEACH SUCEFSSIVE SECTOS INNIVINDUALLY FROM We5, 
POR Bm34, IN F4CH CASE EALH DATA WORD ENUALS 
$THE SFCTNR NUMBER. TEST E12 READS THF INO] Ve 
—$TNuUAL SECTORS BACK IN THE SAMF ARNER AnD : 
SCHECKS TRF NATA. TESTS EIS3/F14 PERFURM THE SAME 
TASK FYCEPT THAT THE StLTNR SFOUENCE TS IN THE 
PREVERSE ORDFR AND THE DATA MRITTEN FOALS THE 
COMPLEMENT OF THE SECTOR NUMAFR, 
THIS TEST IS NESIGNE TA CATCH ERRONENUS SeECTAR 
SELECTIONS ERRORS, 
2 Tee. Ik "SC2" IS ALWAYS AT GROUND wHEN SECTOR 
3 2 TS SFLECTEN, SFCTOR A WILL ARTUALLY 
i RE CHOSEN ANN "2'S" WILL BE “WRITTEN THERE, 
? Tt: THE SUESENUENT REAN A DATA COMPSRE 
} FRPGR wILL RESILT WITR THE GNUNS"“a", 
: ALM TRE Rans"2", 
p4a3s43 LAQ47U SUR A,@ ISFE DISCUSSTOM PRECEDING THIS 
N4h46 F4n557 STA A%,SECT © PWRITE UN CYL@A, HFANeA, ONCE 
94345 VAvi2i LNA 2,147 FOR FACH SECTOR, IN EAC 
Yb34Q Vdas4ld STS V,FELL,1 ICASE THE MATA WORDS ENtAL 
YASS? O27H9S7 FILE JIS@ #1S5¢T 2THE SFCTOR NUMBER 
2435U PAKRZ69 . NOSEK sSEEK ! 
W4d5] Waynava v ICYLTINNER @ 
444852 4PH242 EraLT JERROP JM SEFK, ACISSTATUS 
PO4S5S 4HASYL JNP FTE sSKIP TN END OF TEST 
V.4554 WUAG254 REMDAT SGFNERATE NATA 
VdS5D AA sanr SECT*! SANDRESS OF NATA GEN ROUT, 
RASHH VARAUS PRGENT SADNRESS GF NATA HUFFER 
24357 iP bP WUTTE SwRPITE [. 
AAZHA UP HAUS PRGEENN RNATA BUFFFR ANDRESS 
ABSAY WVAUETT FLL,12 17 INISK ALDNRESS (IT CHANGES) 
24362 ChE6249 FRALT PERRNRP IN WRITE, ACLESTATUS 
“WH3HS AOR SVS JmP .et 
V4364 viPnoad ELIE: LOnP 
yASAH BLA 97 TSY Stet SINCREMENT THE SECTOR 
YWOARB “PA7738 Eh yr Plas PNIIARER 
AESAT (VSPAS LRha 3,Kitt 
CEST Legncd APM 1,3! 
rao7 “wes z7 7? Re: Sebel 
Wwds72 “PED iA 1, TYPE *SFE ITF NGNE 
VAST WALDWS Eis Sy Eos 
(S374 JOTI ADML t%,1,-SNC 
YO37D Vana Lt:h 2?,C03537 
Vv4576 1IC4V4- SuR A,?,S7ZR 
AAT SA JmP F{L >DN ANOTHER 


V.4377 


aS6= 


a4@Aaud7 , 


nYuadanr 
a4ddat 
ndaa2 
44405 
ndana 
n4405 
. QA496 
A447 
ndaiyv 
“v4ati 
n4aile 
G4als 
044144 
NA415 


“4416 


"94617 
Via aP(r 
G44?) 
¥4422 


24a98 
04424 
26405 
U4426 
4477 
naa4asv 
v4ag] 
“4432 
“4433 


— Ab4S4 


W4435 


MAIN 


1AZ4AA 
440957 
V2AS21 
A4najaA 
VA6237 
HAbH262 
AAAAUE 
YA6242 
HAA412 
WA6257 
“A6605 
YVAAAL7T 
VA6242 
aun4an5 
N20157 
“PB77S 
172414 
WiAo2W42 
AUH243 


v1Aa157 
W2UT7K7 
n24063 
123ana 


W4A764 © 


APAL5SA 
vnsu2n5 
127ius 
WIU2ZIA 
1{124u4 
naan] 47 


E12% 


Fi2.13 
E12,23 


F12E3 


SUA 
STA 
LOA 


aA,aA 

by SECT 
a,C17 
STA 4,F12,2 
JSR @ISET 
NOSEK 

A 

EHALT 

JMP EL2E 
READ 

PRGEND 

17 

EWALT 

JMP EL2E 

Ln4 @,SECT 
LOA 1,€E12,1 
SUR& 1,4,S82R 
EHALT 

LOOP 


SZ SECT 


V,F12,2 
1,KB11 
1,4 
A,F-12,2 
1,N TYPE 
Lo4 2,C157 
ADDL 1,1,-SNC 
LDA 2,C0317 
SUR 4,2,S7Z® 
JMP E12 


LOA 


67 


tSEE THE DISCUSSION PRECEDING 


TEST Fll, 


TEACH SECTOR AT CYL@@, 


READ ONCE FROM 


KHEAD@@, 


ICHECK DATA IN EACH CASE, 
FDATA WORODSSSECTOR #, 


ISFEK 
ICYLINDER @ 


SERROR IN SEFK, 


FREAD } 


ACYL SSTATUS 
ISKIP TO END OF TEST 


SDATA BUFFER ADORESS 
SO0ISK ADDRESS (IT CHANGES) 

ACisSTATUS <~— 
tSKIP TO ENO OF TEST 


TERROR IN READ, 


IGET SECT # 


1GET A WORD READ 
SEE ABOVE DESCRIPTION 
BACYSGONN WORD 


DATA ERROP, 


sAC{LEBAD 


PINCREMENT THE S&S 


INUMBER 


tSEE IF DONE 


7G0 AGAIN 


ECTOR 


A 


Arh 


v4a3h 
Y4437 
n444u 


vA44ji. 


aga? 


4443 


(A4AG4G 
4445 
i4446 
44447 
YA4E5SY 
A&sh] 
¢ 4452 
Yhass 
VOA45A 
AS45SS 


- Y A455 
- ~4a57 


VY 4444 
WwSadAy 
v 4462 
ZA4RS 
©4464 
“4d65 


v 6466 
4467 
AAT 
“w447]4 
44472 
“¥44a73 
04474 


"4475 


MATIN 


WPALOA 
WAADAG 
LASTS 
un? aeurs 
YVaAA?D 
125928 
12522n 
1252024a 
125224 
144457 
CPYUODS7 
WwAADO? 
PaRrawe 
ANbH?S42 
CALKA4ALI 
MAG25A 
Y~VAD43SE 
“WV6BUS 
UuAB?OA 
VA RBYS 
AANALT 
VWAHDAD 
AAA AL: | 
CAAQaS 


uf 4157 
ACA AL. I 
WAuU772 
ADbUGS 
1224¢% 
24ST OT 
1914 4u4 
WAaYTSS 


Fid3s 


Loa A,NTYPE 
LOA 1,0137 
ANOL vinw,SNC 
LOA 11,0277 
STA 5,F1i3,1 
MGVZR 1,1 
MONVZR 1,14 
MOVZR 1,1 
MOVZR 1,1 
STA 1,SECT 
JSR @ISET 
NMSEK 

a 

ERALT 

JmhP ELSE 
GENDAT 
SETNC 
PRGENT) 
WRITE 
PRFEEND 

17 

FHALT 

JJFP i 
1Lanp 


NS? SECT 
IMP oof 

LOA V,FI3 i 
LOA 1,K Bilt 
SUK 1,8 

ST4 4,E£13,3 
TteC &,A,S878 
JeP E13 


“Gee 


¢ 
ISFE DISCUSSION PRECEDING 
STEST Ell, WRITE OWN CYL“, 
PHEAN=A, ONCE FOR EACH SECTOR, 
3IN FACK CASE THE NATA EQUALS 
STHE COMPLEMFNT OF THE SECTOR 
BNUIMBER 


SBEGINNING SECTOR 

;SETUP 

7SFEK 3 

sCYLTNDER &@ 

TERROR IN SEEK, ACISSTATUS 
?SKIP TO ENO OF TEST 
2GENERATE MATA 

SANDRESS OF NATA GENERATOR 
TANORESS OF DATA BUFFER 
sWRITE | 

PADDRPESS OF DATA BUFFER 
2DISK ANDRESS (IT CHANGES) 
JERROK IN WRITF, ACL=ESTATUS © 


TNFCREMENT THE SECTOR 


 TNUMRER 


tSEE IF NONE 
smNCT YET 


a avi59 


4476 
4477 
- 4450 
A45H4 
A452 
A455 
wad5aa 
“v4SA5 
na5nsh 
W4507 
va5sia 
W4513 
mési2 
“u4543 
V45gia 
y4515 
v4a516 
¥45917 
A520 
n452i 
(4522 
AA593 
14524 
64525 
v. 4526 
u4527 


4453n 
A531 
04532 
44533 
A&534 
44535 
n4536 


¥4537 


ohAIM 


UPALDSA 
“panda 
LASLMS 
AD 4206 
W44415 
195224 
1252260 
125224 
12522e% 
44157 
AAB237 
VAKR2H2 
VIAAAUA 
ViAPb6?24? 
VAP413 
“YABPADST 
ANbEAYS 
PAAAL7 
V.AGBPAAD 
PAG AVE 
weeds? 
LARALA 
426772 
{22414 
VAG? 42 
vAHQ4a3 


AS41597 


nnAY 4H | 
U20A7645 
W24R63 
L224u-n 
W476? 
LAL 4nd 
VOPATS) 


Fi4s 


E1413 
F{4,23 


EL4E3 


LOA Y,NTYPE 
LDA $,€137 
ADDL %.6,SNC 
LNA §,C0277 
STA 1,E14,2 
MOVZR 
MOVZR 
MOVZR 
MOVZ2R 1,14 
STA 1,SECLT 
JSR @ISET 
NOSEK 

a 

FHALT 

JMP E1L4E 
RE Af) 
PRGEND 

$7 

FHALT 

JMP E14E 


LOA @,SECT 


COM a,a 

LOA 1,8614,1 
SUR 1,4,.SZR 
EW ALT 

LOOP | 


N§2 
InP 
Loa 
LDA 
SUR 
STA 
TNC 
JMP 


ScCT 
oti 
A,FL4,2 
1,KB11 
1,4 
A,E14,2 
a,®,SZR 
E14 


tSEE THE DISCUSSION PRECEDING 


TEST 11, 


SSECTOR OF CYLe-@, 


REAM ONCE FROM 


HEAD=0, 


TREAD SUCCESSIVE SECTORS 
BIN ORDER FROM HI TO LOw, 
IN EACH CASE THE DATA EQUALS - 
THE COMPLEMENT OF THE 
SECTOR NUMBER 


STARTING 


SSEEK } 
SCYLINDER @ 
FERROR IN SEE 
SKIP TO ENO 
WREAN J 

INATA BUFFER 
INISK ADDRESS 
ERROR IN REA 
SKIP TO END 
GET SECTOR # 


iGET “A WORD & 
DATA ERROR, 
7ACU=SGNND WOR 
PACL=EBAD 


JOECREMENT TO 


TONNE ? 
5NO, GO AGAIN 


=59= 


SECTOR # 


K, ACLESTATUS 
OF TEST 


ANDRESS 

(IT CHANGES) 
D, ACLSSTATUS 
OF TEST 


EAD 
SEE ABOVE DESCR 
D 


NEXT SECTOR 


IPTION 


a AwAE 


MAIN 


SDISCUSSTON OF THE HEAN ADDRESSING CHECK, 
s (TESTS E15/E16 AND E17/E18)- 


PUSING CYLINDER=@, SFCTOP@A, TEST ELS WRITES ONE 
sSECTOR Oh EACH SUCCESSIVE HEAN INNIVINUALLY. 
SIN FACH CASE THE MATA KARDS EQUAL THE HEAD 
INUMRER, TEST EL6 REANS EACH OF THESE SECTORS 
SBACK IN THE SAME ARNER THEY WERE WRITTEN ANDO 
CHECKS THE MATA, TESTS E17 AND E18 PFRFURM 
THE SAMF FUNCTIONS EXCEPT THAT THE HEADS ARE 
:SELFCTEN IN REVERSE ORDER AND THE COMPLEMENT 
9OF. THE HEAD NUMBER IS USEN AS THE DATA, 


ITRESE TEST ARE DESIGNFIN TA CATCH ERRUNENUS 
SHEAN SELECTION OR MULTIPLE HEAD SELECTION 
FERRARS, 


IeFe TF "HD2" IS ALWAYS AT GROUND WHEN HEAD 2 
IS SFLECTEN, HEAN A WILL ACTUALLY BE 
CHOSEN, "2'S" WILL BE WRITTEN ON THIS 
SECTOR wHERE "RIES" HAD BEEN WRITTEN 
PRFVIQGUSLY, THE SUBSEQUENT READ WILL 
THEN ENCOUNTER A NATA ERROR WITH THE 
BNNUV wARND = @ AND TRE BAN WORD = 2, 


ee Ee De C8 @S CO CE 


“a6 0s 


a AWA 


vasa 
A454} 
GQ 4542 
14543 
Ha54aa 
A4545 
046546 
“ANS? 
e4a95u 
AADSI 
wa552 
V4558 
wssha 
n4555 
A556 
v4557 
H4564 
@4561 


04562 
©4563 
“d564 
“45465 
14566 
Wb567 
ASST 
4571 
94572 
V457$ 
24574 
04575 
(4576 
64577 
G46AK 


MAIN 


1A2AuaA 
navi156 
neniel 
N4n4y3 
VA62357 
UAG262 
AMUAUA 
AN6242 
agvali 
AA6256 
~A5434 
WAGBA4S5 
AAH26" 
AAHKAS 
CAVAL7 
~CH?2P4P 
AAU sy | 
QAGP4S 


ai1us56 
A2Zn773 
V2 4A67 
{Jesgnua 
YAU77A 
WP4i5U 
AsEa54 
125112 
UNWUSP4 


151 4ua. 


1252u2 
{514Aa 
aesaua 


{?24n4. 


HAA7T 44 


E15: 


E15S.1% 


FLSE$ 


SUB 
ST4 
LDA 


0,a 
A, HEAD 
A,C17 
STA A,E15,1 
JSR @ISeT 
NASEK 

” 

FHALT 

JMP FL5E 
GENDAT 

HON 

PRGENG 
WRITE 
PRGEEND 

17 

EHALT 

JMP ,¢{ 
LONP 


T$Z 
LDA 


HEAU 
A,E15,1 
LNA 1,KH7 
ADD 1,2 

STA “,E15,1 
LOA 1,NTYPE 
LDA 2,ADR@1 


“MOVL# 1,1,S8Z2C. 


JhP #4 
ING 2,2 


“MOVR 1,4,52C 


INC 2,2 
LDA 1,8,2 


SUR 1,8,5ZR- 


JMP ELS 


ag i= 


‘ 
SEE THE OISCUSSION ABOVE, 
PWRITE ON CYL=A, SECT=@, 
PONCE FOR EACH HEAD, 

JOATA WORDS © HEAD # 


ISEEkK J 

SCYLINDER A 

ERROR IN SEEK, ACL2STATUS 
SKIP TO END OF TEST 
GENERATE DATA 

SADORESS OF NATA GENERATOR 
SOATA BUFFER ANDRESS 
WRITE } 

IDATA BUFFER ANMORESS 

DISK ADORESS (CIT CHANGES) 
TERROR IN WRITE, ACL SSTATUS. 


SINCREMENT TO NEXT HEAD 


DONE ? 


?CARY NISK 

ISKIP JF 2311 
#2314 

GET END DYSK ADDR 


PNOT OONE YET 


a ACK2Q 


VAY 
nN4GA2 
R4HAZ 
YAKAS 
C4625 
Vv E64H5A¢AR 
OA6A7 
nasiv 
v4o14 
MSAK {2 
nv4o0js 
04644 


vidw15 


“4Alo 
Vn AKL7 
A4H2V 
¥4A21 
646272 
Y4O23 


¥.4924 
“4625 
n4n26 
v.4697 
CASA 
¥4533 
7 AKRRQ 
P4635 
“AOAG 
AASSNS 
v 4636 
Vd637 
rah au 
V464Y 
v 4642 
AABAS 


YAabaAd 
4645 
Vv 46546 
44747 


MAIN 


1a24auy 
WHAA1dé 
vevi2t 
VPAAbLA 
VAHPAS7 
YAG262 
VAAAAA 
WA~GBI4aD 
AeA? 


OAGA57. 


vido BAS 
ANACAYL7 
WP6242 
Meads 
224156 
“26773 
122414 


AAG242. 


HAbA4S 


A14156 
APVvT7A7 
W240 7 
1?3any 
YPOATb64 
AP GOI 
ASAEL? 
{25152 
Acta syd 
15 ,4na 
1AHAW2 
15id4ua 
WAQAAA 
12244 
“VAad7 as 
ANAAVS 


A ABRAS 
“CALAL7 


PASAT - 


PL2AL7 


E163 


E16,15 


E1E,28 


FI6E: 


ADRS 


Su 
STA 
LEA 


aA, 
A,HEAD 
A,C17 
STA #@,E16,2 
JSP @ISET 
NOSEK 

A 

FHALT 

IMP FIGE 
PEA) 

PREEND 

17 

EHKALT 

JMP FI6EF 

LCOS “,HEAD 
LO&4 1,@b16,1 
SUB# 1,8,S7R 
FHALT 

LOAP 


TSZ 
LMA 
LOA 
apn 
ST4 
Lia 
Ln4 


HE Af) 
A,FI6,2 
1,KnH7 
1,a. 
O,FE14,2 
L,DTYPE 
2,A0R=1 


MOVL# 1,1,5ZC 


IMP (44 
IAC 2,2 
MUVR 1,413,520 
INC 2,2 
Lta 1,4,2 | 
SUR 1,8,S7R 
IMP FLA 
JrP .¢5 


| 
tui? 
5¢17 
12°17 


-F2sil, 


SSEE THE DISCUSSION PRECEOING 


*#TEST E15, 


JEACH HEAD ON CYL=@, 
IVERIFY THAT NATAGHEAD & 


?SEEK } 
CYLINDER A 


JERROR iN SEEK, 


FRFAN § 


SANDRESS OF NATA BUFFER 


READ ONCE FROM 
SECT=@, 


ACISSTATUS 
$SKIP TO END OF TEST 


PDYSK ANNRESS (IT CHANGES) 
ACL=ESTATUS 
?SKIP TO END GF TEST 


ERROR IN READ, 


*GFET READ & 


7GFT A WORD READ 
SEE AROVE DISCUS 
SACA=EGNON WORD 


7D ATA ERROR, 


24C12640 


SINCREMENT TN NEXT HEAD 


FOONE YET 2? 


7CART AISK 


>SKIP TF 2311 
12334 
IGET 


-§MORE TO GA) 


'GO TN NEXT TEST: 


SCART, 


P2314, 


=Go< 


HEAD 2 


SECT Vv 
HEAID 12 SECT & 
HEA) 24 SECT &A 


ENDING NISK ANDRESS 


1 SECT 
1 SECT 
1 SECT 


SION 


aA anés 


VW 465U 
vs6o5i 
4652 
v4a65s 
¥4654 
44655 
VABd56 
4657 
W466 
W46614 
04662 
V4b5463 
AL5H4S 
4665 
C4566 
04667 
e667 
“4674 
"4672 
64673 
“24674 
“s675 
¥4676 
Y4677 
BE7TUU 
v47Al 


U47A22 
Vs7as 
WA7AG 
W47Aa5 
04706 
N47 A7 
v: 4710 
w“é7il 


eH ATN 


V2n15a 
v3sansn6 
1f1112 
WAALNS 
1514ne 
1”%12a2 
1514 4na 
Ae5anan 
A4Z4416 
AQUALS 
12357 an 
vAn{ds6 
07-6237 
“ul 6262 
LA AAGA 
UN6242 
UMAAL{ 
4~AH256 
VA5 432 
“UP EAS 
ALG? oN 
AAbHAL 
AUNAL7 
HAED 4A 
HAYA Y 
YAGbE4aS 


AL aIS& 
WAAAY 
v2u772 
V24A67 
12240 
(40767 
LAaLins 
WAA7D5S 


E17: 


E17.13 


EL7E: 


LOA A,NTYPE 
LOA 2,ADR1 =] 
MOVL# 4,4,S82C 
JMP ,+4 

INC 2,2 

MOVR 4,4,S72C 
INC 2,2 

LNA 1,4,2 
STA 1,F17,1 
LOA A,C1774 
ANOS 1,0 

STA A,REAN 
JSR @1StT 
NOSEK 

A 

FHALT 

JMP EL7E 
GRENUAT 

HONC 

PRGEND 

WRITE 

PRGEND 

17 

EHALT - 

JMP  +{ 

LOOP 


N82 
IMP 
LOA 
LDA 
SuB 
STA 4,E17,1 
MOVL @,4-SNC 
JMP E147 


HEAD 


=63< 


ISTARTING 


ICURRENT HEAD # 


?SEEK } 
SCYLINDER O 
SERROR IN SEEK, 
SKIP TO END OF TEST 
GENERATE MATA 
PTADORESS OF DATA GENERATOR - 
DATA BUFFER ADDRESS 
IWRITE 
DATA BUFFER ANORESS 
IMISK ADDRESS (IT CHANGES) 
_ JERROR IN WRITE, 


TNONE YET ? 
7NO 


( 
SEE THE DISCUSSION 
PRECEDING TEST E15, 
WRITE ON CYL, 
ONCE FOR EACH HEAD, 
IDATA © HEAD # 


SECT, 


OISK ANDRESS 
7SELECT HEADS IN REVERSE ORDER 


ACLESTATUS — 


ACiSSTATUS 


SOECREMENT HEAN #& 


a AVA4 


a4712 
04713 
v4714 
4715 
04716 
W4717 
“Wa72e 
A472} 
4722 
26728 
04724 
04725 
44726 
—A4&727 
G473G 
04731 
04732 
n4733 
a4734 
#4735 
“4736 
14737 
¥47 44 
W474i 
04742 
04743 
N47 44 
y4745 


047 46 
AS7 47 
u475a 
' ae75} 
04752 
“4753 
A&754 
04755 
04756 


“@4757 
47640 
ve76$ 
24762 


MAIN 


n2”ai15a 
U3U444 
1A1112 
AANSIG 
153) 4a0 
TAL2h2 
1514ua 
A25auna 
4444613 
A2n213 
123748 
A4W156 


AA62387 


vn67?62 
ANHnAKA 
AAGC2Z 42 
BANALS 
AAG257 


Anb66u5 


YVAUN{L7 
YGR6242 
AAUdAG 
WPUjSE6 
LAAALA 
A26772 
122414 
UA6249 
UVAG24S 


414156 
BYvusA) 
vea7vos 
U24A07 
122404 
440762 
101148 
AABTHI\ 
AAn ANS 


AAATBA 
aAaA4si7 
ue ae47 
S$ 44497 


E183 


E1813 
E18,2% 


ELBE: 


AOR{? 


LOA A,DTYPE 
LDA 2,ADRi{ |] 
MOVL# “4,8,S2C 
JMP 44 

INC 2,2 

MOVR @,0,S2C 
INC 2,2 

LOA 1,9,2 

STA 1,&18,2 
LOA %,C1774 


ANNS 1,0 


STA A,HEAD 
JSR *ISeT 
NGSEK 

a 


ERALT 

JMP ELBE 
READ 

PRGEND 

17 

EHALT 

IMP ELBE 
LO4 A, HEAD 
COM 4,Aa . 
LDA 1,8E18,1 
SUR 1,4,SZR 
EHALT 

LOOP. 


MSZ KEAD 

JMP ,+{1 

LDA A,F18,2 
LOA {,KB7 
SUB 1,@ 

STA @,E18.2 
MOVL @,6,SNC 
JMP €18 

JMP E19 


+i 
447 
44147 
11417 


tSEE THE DISCUSSION PRECEDING 
ITEST E15, READ ONCE FROM 
EACH HEAD ON CYL=0, SECT@Q, 
1VERTFY THAT DATASHEAD # 


ISKIP IF 23141 
32314 
IGET DISK ADDRESS TO SEGIN WITH 


IBEGINNING HEAD & 


SEEK 3 
SCYLINDER @ 
ERROR IN SEEK, ACI=STATUS 

SKIP TO ENO OF TEST 

SREAD } ; 

PANDRESS OF MATA BUFFER 

DISK ADDRESS (IT CHANGES) 

TERROR IN READ, ACLZBSTATUS 

sSKIP TO END OF TEST 

IGET HEAD # 

SUSE THE COMP, 

*GET A WORD READ 
DATA ERROR, SEE AROVE OISCUSSION 
FACHSGOON WORD 

PACisBAD 


IDECREMENT HEAD # 


7DONE YET ? 


INO 

WYES, GO TO NEXT TEST 

FCaRT; HEAD. t. SECT -f -4. SECT 

s23511, HEAD 11 SECT B ft SECT 
HEAD 26° SECT @ 1 -SECT 


123144, 


2646 


Wihiias- -abebsl oe tein! Cech, ak nies = chia: depen et: a utara = 


a an6 5 


4763 
n4764 
‘04765 
(04766 
@4767 
24770 
W4774 


04772 
@4773 
M4774 
04775 


Q4776 
@4777 
pSaanna 
@5ani 
Husane 
W5aa35 
a5aa4 


w5aas 
asan6 
45007 
a5010 


Aa5014 
a5aie 
v5a18 
“w5ai4 
B5015 
usal6 
85017 


. 95070 

adeaos 
a5a22 
05023 


MAIN 


ANG24A 
2n6262 
Qau3is3 
AABGAS 
AAY4K2 
AA6242 
MA6245 


A3B153 
B21518 
24a4u1 
nmAG233 


AMB240 
AnN6262 
BARSIS 
A2ZAHb4 
123415 
AA6?242 
26243 


ASAISS 
M21113 
n4nani 
aasest 


vAG6248 
AN6262 
~AnsLS 
A2A177 
1234144 
AA6242 
QnAb243 


ASAL5S3 
M24113 
vans“) 
ZaAb23i 


E193 


E2as 


E2i: 


SETPY 
NOSEK 
313 

JMP ,4+3 
JMP .42 
EHALT 
LOOP 


LOA 2,UNUM 
LOA B,TRCL.2 
STA A, PB | 
RECLA 


SETP{ 

NOSEK 

313 

LOA @,KB16 
AND#H 1,0,SNR 
EHALT 

LOOP 


LDA 2,UINUM 
LDA &,TRCL.2 
STA “A, evi 
RECLA 


SETPL 

NOSEK 

313 

LDA @,C3S6 
AND# 1,8,S2ZR 
EHALT 

LOOP 


LDA 2,1NLUM 
LDA @,7RCL,2 
STA A, ei 
RECLA 


-§65= 


¢ 
SCAUSE SEEK ERROR BY 
SSEEKING 7O CYL S15 


PACLOSTATUS 
1NOQ ERRORS ON SEEK 
TO CYL 313 


JRECALIBRATE THE 
JUNIT WITH A SEEK ERR 


CAUSE SEEK ERROR BY 
ISEEKING TO CYL S138 


PACLOSTATUS 
1NO SEEK ERROR STATUS | 
JFOLLOWING SEEK TO CYL 313. 


PRECALIBRATE THE UNIT 
WITH A SEEK ERROR 


tCHECK FOR ILLEGAL ERRORS 
PALONG WITH SEEK ERROR 
PACLESTATUS 

FINTENTIONAL SEEK ERROR : 
SILLEGAL STATUS} "END CYL" 
JOR "UNSAFE" OR "CHK WO" 
FOR "DATA LATE" 


PRECALIBRATE THE UNIT 
SWITH A SEEK ERROR 


a QAKB6 MAIN 

72 ; 
¥V5N24 GAGPSS E223 PaRw so.7~ SSETUP SECTOR.3 8 4 
v§a25 nanvaun i) CYL # 

Y5A0260 nas4ans THREE FOATA TYPE 

A527 UAAAT7 77 7DISK ADNRESS 

ARUN ANoes4 FIZ% NORw SSECT 4 

ASYSL ABKAVA Aa 

-A5N32 WUA54u7 FOUR 

05033 2AAaL17 117 

C5034 AADZ37 JSR @ISET STEST READ SECT SeWRITE SECT 4 

_ PSEQUENCE 

¥5835 486257 F276 READ TREAD A SECTOR 

U5A36 naAbhus PRGEND SMEM RUFFER ADDRESS 
25037 VAGa77 77 SSECTOR THREE 

WSU4KH URG242 FHALT SERROR, ACI=SSTATUS 

a5a4i aan42o JMP_E22E >SKIP TO END OF TEST 
Q5a42 NAKZ6A WRITE WRITE A SECTOR 

. ¥5R43 ¥0665n5 PRGEND SBUFF ADDR (3'S JUST READ) 

 §5A44 WAALL7 117 7SECTOAR 4 

eS5u45 “wnshoan EHALT _ FERROR, ACIZSTATUS 

Y5R46 VPU41S JMP E22E #SKIP TO END OF TEST 
n5u47 WA6256 GENDAT IGENERATE MATA BUFFER 
¥5A5A vagand THREE ,ANDR NF DATA GEN 

5051 av66us PRGEND JBUFFER ADDR, 

W57052 Ano2s7 READ SREAN A SECTOR 

@5a53 BA72AAS PRGEND+4A4G 7BUFF ADDR, 

@5054 auvii7 117 SECTOR 4 

a5u85 we6eda2 EWALT PFERROR, ACIx<STATUS 

Y5056 ~AAyY4ayus JMP EF22E ISKIP TO END OF TEST 
AHH 2AK264 CHECK SCOMPARE BUFFERS A/B 
ASMAU AAGHAS PRGEND tADDR OF BIIFF A (CORRECT) 
@50614 an7205 PRGEND+4Ay SADDOR OF BUFF B 

YSA62 uAb6242 . EHALT ICOMPARE ERROR, ACA=G000 
W563 VA6243 F22E2 LOnP 


66s 


sACLSBAD 


a AC67 , 


Q@5n64 
@5a65 
@5466 
A567 


Q5070 
H5a71 
a5a72 
25073 


@5u74 


A5a75 
A5A76 
A5377 


asian 
45104 
¥51A2 
Q45143 
_ P51ida 


E5105 
 A51LA6 
‘A5{07 
AS51106 
A5i11 


05112 
M5113 
asii4 
5115 
@5116 


B5117 
A520 
asi2i 
W5122 
B5123 


MAIN 


AAG254 E233 


vAaAuA 
WA5 405 
AAAAT7 


PA6254 
VARAAA 
AA54H7 
COB117 


¥A6237 


AAG256 
UAN5207 
GA66A5 


BA62Z6R 
AA6665 
GBAGA77 
WVA6242 
VAB417 


“VA6257 
AA72E5 
GAALL7 
VAb242 
BAK4SI2 


AU6257 
va66us 
YAUB7T7 
AN6242 
eAa485 


eA62614 
VAbGR5 
AA72EB5 
QA6242 


Wn6243 EQ3SEs 


NORW 


a 
THREE 
77 


DORwW 
a 


FOUR 
117 


JSR @ISET 


GENDAT 
FOUR 


PRGEND 


ERALT 
JMP E2QSE 


READ 
PRGEND+40Q 
117 

EHALT 

JMP E2SE 


EHALT 


JMP E2SE 


CHECK 
PRGEND 
PRGEND+488 


EHALT 


LOOP 


wie ye 


i] 
SETUP SECTOR 3 & 4 


CYL # A 
PDATA TY 


JOTSK ADDRESS (SECT 3) 


ISECTOR 


ITEST KRITE SECT SeREAD SECT 4 


PSEQUENC 


GENERAT 


14'S 
tADDR OF 


SWRITE A 
ADDR OF 
ISECTOR 
YERROR, 


PE 


4 


Ee 
E DATA 


DATA BUFF 


SECTOR 
DATA BUFF 
s) 
ACIsSSTATUS 


ISKIP TO END OF TEST 


FREAD A 
}MEM BUF 
ISECTOR 
ERROR, 


SECTOR 

F ADORESS 

4 

ACYSSTATUS 


tSKIP TO END OF TEST 


FREAD A 


ISECTOR 
SERROR, 


SECTOR 


JMEM ADDR 
3 


ACY=SESTATUS 


ISKIP TO END OF TEST 


FCOMPARE SECTOR 3 & 


SECT 3 
SSECT 4 
ICOMPARE 


ERROR, AC@sGOOD (SECT 3) 
PACIRBBAD (SECT 4) 


4 


a 068 


¥5124 


a5125° 


05126 
AS127 
- 45434 
H5131 
64132 
451433 
C5134 


“5135 
M5136 
a5137 
a5144 


45141: 


a5T42 
“5143 


v5i44 
-@5Y45 
25346 
v5147 
6515 


H5151 
a5i5¢ 
yS5i5¢ 
05154 
“5155 


25156 
05157 
05164 
5161 
05162 
A51463 
aA5164 
“V5165 
v5166 
“vSi167 
KAL7¢ 
517% 
05172 
A53738 
A517 4 
G5L7D 
45176 
5177 


oMAIN 


1A24ua 
Q40405 
040420 
AAG2R7 
V4G434 
“Anb254 
aagaunna 
GA5417 
QAGAL7 


A1A775 
20774 
A242V7 
122437 
CAaDTTA 
wenes'a 
né4n452 


GHA6237 
AAG262 
aanaya 
an6242 
WAC412 


0A6257 
AABAAS 
YAUAL7 
VA6242 
HAA4YS 


HPAID55 


A2616Aa 
1224144 
AAbB242 
UAGb243 
1A1@AL 
AP AANA 
A2H764 
40776 
vA“é6255 
¥242u7 
ASUL25 
{43 4ua 
{76453 


ARTZ S 


“4754 
AL4417 
APAA7T 4S 


E243 


CL 


GO% 


eSCYLS 


F24E3 


LCYL: 


GRAN 8 


SUR A, 
STA A, 
STA QO, 
LDA 4, 
STA A, 
OnRW 

a 

CYLN 
17 


TSzZ 
LHA A, 
LDA 1 
SURZ# 
JMP 
LDA 4H, 
STA @, 


JSR 6] 
QNOSEK 
4) 

EHALT 


A 

eCL 

e SCYL 
C312 
LOYL 


CL 


e CL 


70312 


1,8,SBN 


eCL=-1 


C5ana 
CCNT 


SET 


JMP F24E 


READ 


PRGEND 


17 
FHALT 


JMP F24E 


LNA WU, 
LOA 1 
SuBa 1 
EHALT 
LOOP 

MOV A, 
A 

LDA 
STAB, 
JSR 
LDA 
LOA 
ANS 
SUABZ#H 
JuP GR 
STA A, 
BSzZ- Ce 
Jé¢P GO 


CYL 


» OBUFF 


0%/SZR 


a,SKP 


A,1,5NC 
AN 
eooyL 
NT 


a68= 


t 
WRITE CYL # INTO EACH 
ySECT @, HEAN @, OF ALL 
CYLINDERS 


#CYL # 
?ANOR OF DATA GEN nO 
S0ISK ADNRESS 


5 NO 5@@ SEEKS 


SSEEK 23 

tCYL 4 

PERROR, ACIESTATUS 
#SKIP° TO END OF TEST 


FREAD NATA IN SECT B 
7MEM ADDR 

IDISK ADOR 

FERROR, ACLSSTATUS 
sSKIP TO ENO OF TEST 


CURRENT CYLINDER # 
PACTUAL CYL # 


PC(LCYL) = LAST CORRECT 
SCYLINDER #& 


SSAVE CYLINDER JUST DONE 
IGET RANDOM CYLINDER # 


te MUST BE «313 


TRY AGAIN 


a Aavé69 MAIN 
¥5S2AN 96247 PCRLF sEND TEST 
45201 na6g25a MESSAGE 
V5202 WAAbbY2. MSG6 y"PASS" 
P5203 30045 LDA 2,45 
“5204 B25av" LDA 1,8,2 
v52a5 1250u5 MOV 1,1,SNR 
V5206 602446 JMP 0,46 
u52a7 a15aa3s 0S$Z 3,2 
V5210 042404 JMP @,44 
w5234 460277 INTDS 
v5212 assaua LDA 3 2 
“5213 “Aidan JMP @ 


Q@5214 ann4ie2 Aj . 


“25215 wagaen CCNT3 a 
5216 wea7e4 C5Av3 SaA, 


-69= 


A872 


a5217 


A220. 


¢5221 
05222 
75223 
5224 
05225 
05226 
V5227 
“S23n 
“5231 


A5232. 


VA23S 
45234 
A8235 
45236 
¥§237 
as24u 
A5241 
n5242 
v52438 
“as24aed 
@5245 
5246 
“5247 
CA2ZSS 
n52561 
a@5252 
05258 


MAIN 


v5 4431 RAN3 


A5uN427 
044425 
Y20142 
AAALALA 
A34426 
{E3AWA 
44y142 
1111aa 
ASNV4)7 
424415 
02416 


U2 4420 
844415 
125324 
17512a 
“id412 
“Aaa77é 
LA7AUA 
12512a 
12512a 
{2IAaAUA 
VAL 4UA 
VAAAKRA 
HAWNAKHA 
VPARUA 
ARPUADA 
ABZIASL 
WAKRALA 


eUNSAS 


eUNads 
2UNAQS 
eUNASS 
eUDLAS 
eUD2A3 
eUN218 


SRANDOM NUMBER GENERATOR 


STA 
STA 
STA 
LDA 
JSR 
LO4 
ADD 
STA 


3, eUNbS 
2,.UD002 
1,.UD01 
A,RANODNM 
eUDSD 

3, eUN2A 
3A 
®,RANDOM 


MOVL ,2 


LOA 
LDA 
TMP 


LIA 
STA 


MOVZI. 


2» U0R2 
1,.UNAL 
® INAS 


1,.un2ai 
1,.UDi4a 
a,1 


MOVZL 141. 


N$2 
JmPp 
App 


eUNIG 
27? 
“,1 


MOVZL 1,i 
MOVZ2L 1,1 


ann 
JMP 


1,0 
a,3 


-~70=— 


tGENERATE A RANDOM 


SNUMBER IN ACO 


STORE NEW VALUE, 


RANDOM CONTINUED 


a BA74 


Q3254 
65255 
05256 
25257 
W526 
05261 
@8262 
52638 
05264 
05265 
¥5266 
“5267 
5270 
“05271 
45272 
45273 
25274 
@5275 


“45276 
A5277 
Z253aU 
A5301 
“U53Aa2 
A53AS 
A53a4 
@253a5 
Q53a6 
A53AaA7 
“a53ib 


MAIN 


054460 
ASA214 
a5n417 
B31400 
US5404 
a1a453 
0$8452 
A210 
a254ua 
196414 
“h2446 
151420 
17544a 
ALIAAA4 
VAG77 4 
ALAA4SL 
“WA2Z44A 
UAABUA 


054436 
M24214 
ASL4U4 
434433 
AA7 480A 
udjaua 
15440A 
125404 
APAB773 
A34425 
A~ALLA2 


eCHECK3 


eCHE1L3 


CTRE 


oGEN 


»GEN1L3 


JSR 


SCHECK DATA SUBRNUTINE 

» CALL CHECK 

; ADDRESS OF DATA BUFFER {4 
’ ADDRESS OF DATA BUFFER 2 

; | ERROR RETURN, CACi)8BAD (ACO) sG000 
} NORMAL RETURN . . 


STA 
LDA 
STA 
LDA 
LDA 
18zZ 
1sz 


3,GENRET 
22,4428 
2,CTR 
2,4,58 
Seigd 
GENRET 
GENRET 
LOA A2,&8,2 
LOA 1,8,3 
SUB#H @,1,SZR 
JMP @GENRET 
INC 2,2 

INC 3,3 

ISZ CTR 

JMP ,CHEL 
TSZ GENRET 
JMP @OGENRET 
4) 


ERROR 


CHECK MORE 


NORMAL RETURN 


GENERATE ONE SECTOR OF DATA 

+ CALL GENDAT 

5 ADDRESS OF DATA GEN ROUTINE 
3 DATA BUFFER ADDRESS 

’ RETURN 


STA 3,GENRET 


LOA 1,M400 

LDA 2,1,8 

LDA 3,GENRET 
00,3 

STA @,0,2 

INC 2,2 

INC 1,1,SZ2R~ -°- 
JMP ,GENI 

LDA 3,GENRET 
JMP 2,38 


IGET A DATA WORD 


10M MORE 
}DONE 


-7l-= 


A avU72 eMAIN 


WRITE SUBROUTINE 
» CALL WRITE 


; DATA BUFFER ADDRESS 
} NISK ANDRESS 
H ERROR RETURN, (AC1) | STATUS 
. JMP TO END OF TEST 
. ’ NORMAL RETURN 


TERROR RETURN IF 


es 


; TIMEOUT (180MS) 
, DATA LATE 
, ADDRESS ERROR/UNSAFE 
ft END CYLINDER 
; SEEK EPROR 
, ANY "SEEKING" 
; ANY "SEEK DONE" 
3 NO "R/wW DONE" 
VASI11 AR4423 JWAITES STA 3.GENRET 
HWHst2 42140 LMA 4,a,3 
M5315 “62a33 NOR u,NSKPp C4 
W5514 M2n152 LMA A, TESTU 
Y5315 v2ssnt L104 4,1,3 
Y53io 126Aaua Aon 1,4 
M5317 463233 NGCC WeNSKP SUNIY # & DISK ADDRESS 
BA 3ZPU (20426 LOA 4,€777 sBIT 7 AND ALL CYL-BITSs{] 
AN321 461938 NnAS w,DSKP mWRITE 3 
WH3SO2 ALAALP ISZ GENRET 
AS53235 vie4il IS7 GENRET | 
V5324 ViP6235 TTReT PWAIT 10@MS FOR INTERRUPT 
“5325 AA2Z4A7 JMP ©GENRET PTIMEOUT 
W539 H2PN4A7 WRLE LOA A, _nM SERROR BIT MASK 
AK327 1A7435 AND# 0,1,SNR 
—G5335n 125933 “MOVL# 1,1,SNC 
WH53S31 @A2448 JmP @GENRET rERPROR STATUS 
A5332 93442 LOA 3,GENRET 
W5333 47a@14v2 JmP 2,3 
"5334 AMAAAA GENRET: &@ 
05335 “77677. ,uMs 77677 


“wa AWTS ° {MAIN 


A5336 
85337 
Ad sa 


05341 


05342 
05343 
e5344 
Q5345 
95346 
05347 
aA535a 
“5353 
85352 
GQ 5353 


054776 ,READt 


A2ZL4CGAa 
VEA2A33 
a22a152 
025401 
yaanna 
V63233 
1a24ua 
“61133 
vi{a76s 
G1A764 
286235 
AGB2762 
YVAGB7ES 


FREAD SUBROUTINE 


» CALL 
; 


22 “eS two 


READ 

DATA BUFFER ADDRESS 

DISK ADDRESS 

ERROR RETURN, (ACI) STATUS 
JMP TO END TEST 


NORMAL RETURN 


FERROR RETURN IF 


=e Ge we GT VW GTS GS TF FE 


TIMEOUT (1@@MS) 
MATA LATE 
CHECK WORD ERROR 
ADDRESS ERROR/UNSAFE 
ENN CYLINDER 
SEEK ERROR 
ANY "SEEKING" 
ANY "SFEK DONE" 
NO "R/W DONE" 
STA 3,GENRET 
LOA a,a,3 
0NB #,NSKP 1CA 
LOA 8,TESTU 
LOA 1,1,38 
ADD 1,9 
DOoCC v,0SKP PUNIT # & DISK ADDRESS 
SUB 42,a 


NOAS 4,DSKP 


SREAD } 


ISZ GENRET 
ISZ GENRET 


ITRwT 


IMP @GENRET 
JUMP WRt 


WAIT 108 MS FOR INTERRUPT 
ITIMEOQUT 
CHECK STATUS 


-73- . 


“7A 


a AW74 MAIN 
: 4 
ISEEK SUBROUTINE 
» CALL NOSEK 
3 Cyl 4 | 
; ERROR RETURN (ACI) S8STATUS 
} JmMP TO ENN TEST 
. 3 NORMAL RETURN 
, SERPROR RETIIRN IP 
; TIMENUT (5AAMS) 
; DATA LATF 
3 CHECK WORD ERROR 
3 ADDRESS FRROR/UNSAFE 
3 ENN CYLINDER 
3 SERK ERRAR 
, ANY "SEEKING" 
’ NO "SEEK NONE" 
3 "R/W DANE" 
55546 WS4768 ,NONSEKS STA 3,GENRET 
45355 814757 “ISZ GENKET 
PH356 B20552 Loa @,TESTU 
¥VS357 263927353 NGCC W,DSKP FSELECT UNIT 
WH GAA O21 40a LOA @,4,3 
Y¥SS3A1 W24125 LOA 1{,C03577 
¥5362 1234in0a apn 3,40 
ASSES AS44155 STA A,CYL sSAVE CYL & 
VISA FAdA7NM Lbs 1,KnA6 
@R3R5 123070 son 1,4 sCYL # + SFEK 
A5S36G AALSSS8 NGAF ”A,NSKP 
CH3R7 AIAALG7 LOA 2,C5— 
A537 “46227 WATT PWAIT SVAMS (OR UNTIL "DONE") 
W5374 w2asi{a LOA @A,,0M 
05372 1203414 ANN# 1,¥%,57R 
V5373 BA27 41 JMP @GENRET FERRNR STATUS 
vd374 N22220 LD& 4,C074K 
Vv5375- 1234615 AND#& 1,U,SNR 
U5$76 UAZTSA JmMP @GENRET 7NQO SEEK DONE 
65377 “34735 Lna 3,GENRFT 
P5404 HAL 4U2 JvMP 2,3 
A544, 1893677 OM? 143677 


a 0075 


“v54h2 
A54AS 
@5404 


B54n5 
A54a6 


5427 
@5418 


5431 
vw5412 


05413 
v54i4 


05415 
AS416 
“45417 
AS84249 


“5424 
“5422 
¥5423 
45424 
“v§425 
v5426 
U5427 
AH 436 
P5431 


a5432 
45433 
05434 
A5435 


‘ 
“05436 
05437 
25446 
“54st 


MAIN 


1A2Aut 
1A240A 
AALAGA 


H20117 
WALABA 


22166 
BAL40A 


Y201 42 
OAL4QAA 


W2AL 44 
HAL SUA 


A2A155 
Yunanunt 
wv2v155 
“~AL40a 


A54407 
U1A4n7 
“wAa4aal 
v2n405 
A34125 
1634uR 
HAS4SHL 
NAAADA 
AADALA 


w20156 
{anau{t 
Q2ai5sA 
UALABDA 


P2A157 
LABHAL 
A2a157 
HAL4aR 


ONESS 
ZEROS3 


THREE? 


FOUR 


ALT13 


ALTGS 


CYLNCS 


CYI.NS 


NUMSEQ3 


NSRET8 
NS1i8 


HDONC 8 


HONS 


SETNC3 


SECTN? 


ADC 
SUR 
JMP 


LDA 
JMP 


Loa 
SMP 


LDA 
JMP 


LDA 
JMP 


LDA 


LOA 
JMP 


STA 


a,C4 
0,3 


a,€2525 
a,3 


a,C5252 
a,3 


a,CYL 
A,%,SKP 
a,CYL 
a,3s 


S~NSRET 
NSi 

o+t 
a,NS1i 
3,C377 
3A 
ONSRET 


=75< 


a 0876 


5442 
454438 
05444 
05445 
5446 
05447 
25450 
5454 
5452 
“5453 


“5454 
05455 
C5456 
05457 
nS 46, 
vV5461 
~A5442 
45463 
A€5464 
A54645 
aSAKo 
V5467 
a5a7u 
45474 
V5472 
“ARG7S 
G5474 
45475 
Y5476 
05477 
ahb5an 


MAIN 


~54504 
1126247 
YAH2SA 
WUABS5SLIA 


UA6247 © 


HWA625A 
An6523 
PA6247 
YVAG25A 
AAGS4{ 


AA62947 
UBU21A 
V6361Aa 
VAUA777 


VERSA 


wbi1111 
vp4124 
{O74yva 
ASAZUA 
A420 
132437 
166432 
NAAS57 
W24117 
123420a 
1f 1224 
HAUS 
{a1eus 
171244 
1AL22Aa 
A4A$5U 


e INI’ 


oINIY82 


SPROGRAM INITILAIZATION 


STA Spe lNRET 


PCRLF 
MESSAGE 
MSG1 
PCRLF 
MESSAGE 
MSG2 
PCRLF 
MESSAGE 
MSGS 


PCRLF 

NINC TTY 
SKPON TTY 
JMP l=i 
NTA A,TTTI 
NQAS v,TTO 
LOA 1,C177 
AND 4,1 
LOA 2,C6Aa 
LOA 3,C63 


SURZ# 1,2,SBN 
SURZ# 3,1,SZC 


JMP QUEST 
LOA 1,C3 
AND 1,4 


MOVZR #,A,SZR 


JMP. +4 


MOVR A,W,SNR 
MOVOR %4,A8,SKP 


MOVZR A,A 


STS @,NTYPE 


a7G6= 


WATT 


sREAN 
,ECHO 


PACK TYPE 


A FOR CART 
1 FOR 2311 
2 FOR 2314 


FOR TYI IN 


CHAR 
TT 


*7 BIT MASK 


PUT 


}CHAR MUST @,1, OR 2 


PILLEGAL CHAR TYPED 


$22, 2314, BIT 15 IS SET, NONE 


;2A, 


CART, 


MUST 


SET BIT A 


Sul, 2511, MUST SET BIT 1 


a 0°77 


D55a1 
A55a2 
v55a3 
n55n4 
a5505 

w5506 


45507 
65514 


AS55410 


O5512 
M5513 
@5514 
@5515 
AS5S516 
@55357 
“552n 
65521 
45522 
“5523 
05524 
@5525 
Q5526 
05527 
“5530 
ASS! 
C5532 
“5535 
n5534 
%5535 
%5536 
05537 
08544 
¥5541 


G5542 
“5543 
05544 
@5545 
“05546 


a5547 
A5552 
be zele | 
5552 


05553 
05554 
“5555 
95556 


MAIN 


1A24nH 
Haat5i 
“06247 
UN625Aa 
“YV6562 
“~A6247 


Q6O219 
BbS61Aa 
YAA777 
YVBW4ALA 
“6L114 
ne4aie4 
1A74HA 
A3B173 
132415 
AAB422 
USA20A 
ASA42V 4 
{66437 
132436 
AAB42H 
U3sa1L17 
11340” 
n21057 
25053 
HV4419?2 
V5n153 
iivasa 
024151 
{47 4G 
LA7TAUA 
A4a4i5i 
AAG7 46 


W2euid5s} 
1ALAAS 
AAG4SU7 
VA2Z4AL 
AABABAA 


AABPA7 
AAB25A 
A2%6557 
ARATAD 


AN6247 
AAH25A 
WA6557 
AYAB72?5 


eINI2% 


eINIS3 


QUEST! 


ASTLS 


SUB 4,0 
STA @,NDSKS 
PCRLF 
MESSAGE 
MSG5 

PCRLF 


NIOC TTI 
SKPDN TTY 

JMP =f 

OIA A,TTY 
DOAS %,TTO 
LOA 1,C177 
ANN @,1 

LDA 2,C15 
SUB# 1,2,SNR 
JMP CR 

LDA 2,C6@ 

LOA 3,C63 
SUBZ# 3,1,SBN 
SUBZ#& 1,2,SEZ 
JMP .QST1 

LOA 2,C3 

ANN 4,2. 
LOA A,UNTBIT,2 
LOA 1,,TU,? 
STA 1,TESTU 
STA 2,UNUM 
COM 8,2 

LOA 1,NOSKS 
AND 2,1 

AND @,1 

STA 1,NOSKS 
JMP eINIS 


A,NDSKS 
A,A,SNR 
QSTi 

®@,INRET 


LDA 
MOV 
JMP 
JMP 
ae 


PCRLE 
MESSAGE 
MSG4 
JMP .INTIS 
PCRLF 
MESSAGE 
MSG4 


JMP ,INI2 


Ps he 


ITYPE UNIT NUMBERS TO TEST 


FREAD CHAR TYPED 
FECHO THE CHAR 


17 BIT ASCIT 


#CR TYPEN 


JH MUST BE @,1,2, OR 8 


PILLEGAL CHAR TYPED 


S(NDSKS) 8 BIT 15 


! BIT 14 = 
} BIT 13 = 
} BIT 12 « 
7IF NO UNIT NUMBERS 
sIT IS AN ERROR 


UNIT @ 
UNIT 4 
UNIT 2 
UNIT 38 


TYPED 


a Av7B 


05557 
v5560A 
aS561 
WVSH#2 
45563 


WS564. 


25565 
(8566 
GS5#7 
AS574 
v§571 
05572 
YV55793 
5574 
v5575 
05576 
65577 
VS560Aa 
ASB04 
vS6iU2 
6563 
45604 
 w86A5 
V56A6 
2PS6A7 
HSBLC 


P5611 


¥5612 


A56593 
5644 
456145 
415616 
5617 
A562un 
v5oAL 


eMAT®™ 


1AZ4A4 
R2ONAGB4G 
(24176 
123000 
Ways 
AINV425 
A21aAK~A 
V24161 
127 40a 
034169 
16644 
AMAAEH 
W24163 
n34154 
1234NAa 
LA SAGA 
W41ARHA 
1514pA 
A244} 
132444 
VAA7 62 
24046 
12505 
VB3077 
VRQAGt 
AWvuUAUA 


AAA LUA 
NA6K27 


VR asVvi 
BxIZAH5A 
WEA4A0A 
Vi 4APA 
MAA777 
PAADSY 
PAGAGA 


05058 
2S732 


eSNQ2 


eSNis 


FIRSTS 
LAST: 


SET ALL I/0 ADDRESSES 


SUR A 
LDA a 
LNA 1 


“ADM f 


STA A 
LOA 2 
LOA @ 
LDA { 
AND @ 
LOA § 
SUB 3 


0@,SKP 


»>NPIO 
71,S5ZR 


JMP .SNI 


LNA 
LDA 3 
ANN | 
ANN 3 
STA @ 
INC 2 
LOA 1 
SuRa 

JMP , 
Loa | 
Mav { 
HALT 

JMP ® 
START 


START 
oSET 


162/SZR 
SNY 
»€GGS 
pie SNR 


oi 


ISET TO 
ySET TO 


GO AN 
}OTSK PA 


DELAY SUBROUTINE 


STa 3 
LOA 3 
STA 3 
DS7 a 
IMP, 


IMP @,STLRET.- 


eSTLPETSA  , 


t eSTLRET 
»KBL4 
A, 


=} 


a 


33 
73 


CK IO INST, 


75622. 


4623 
Ah624 
¥5625 
A5H26 
08627 


_ af PRGRA 


lo 


 OS6S1 


_, #632 


B5633 
5604 


a an79 MAIN 


U2AAS6 
151005 
MAL AAA 
v2 46054 
123000 
151223 
AAn773 
063833 
U2 4070 


oSSEK3 


WO65333.. 


vVAn7 67: 


WS0164 
WSR145 
w5Q144 


ASHA2A]- 


UB37AR 
VAIA77 
AGG433 
{33414 
VAY4RG 
VL4144 


Wae772° 
O14164 


PAB7ZOS 
AAL 400 
YB64433 


HAL SQA - 


eWAITI 


WTO3 


. JUP 


PUSET A SEEKING FLOP" 


}FOR THE UNITS 


3 BIT 15 
, BIT 14 
pe s BIT 135 
} 


BIT ie 


ADN 1,8 


. r) 
MAVZR 2,2,SNC 


JMP ,SSEK+e{4 
Noc ”a,NSKP 
LDA 3,Ciaga 
NOAP 1,0SKP 
eSSEKS] 


BRIIN TIMER 


SUBROUTINE 
INDICATED BY (AC2), 
® UNIT @. 

ws UNIT { 

es UNIT 2 
s 


© UNIT. 3. 


TOONE — 


TRY ANOTHER UNIT 
PRECAL THIS UNIT 


ISEEK JJ 


" PWAIT ROUTINE FOR "DONE" 


9(4C2) & MAX RUN TIME, (CIQ@ANS/COUNT) © 


STA 2,I1TRCNT 
LDA 2,TIME 


STA 2,TEMP 


LOA 2,C174K 
SKPDZ @ . : 


WALT 


DJA 1,0SKP 
AND 1,2,S7ZR 
IMP wWwTto 

$2 
JMP 6 
0572 
JMP  ,wAlTe{ 
JMP 
NIA 1,NSKP 
JMP @,3 


a75= 


HM (AAMS ITERATIONS 
210Q MS / COUNT - 
STEMP COUNTER 
JOISK NONE FLAG MASK 
IDUMMY FOR TIME FILLER 


FREAD STATUS 


SSQOMEONE IS-OONE 
TDONE 14M MS~ 


mN0 SOME MORF, 
STINE OUT © 


emote wee 


ee SA 
oe * i . ie 


—_ 


- Bes 


an 4 
bho aederi 


5 ree 


", 


7 meet 
vere! ‘pees ete 


S08 OP A CO OE 8 Se ES + A SO OP I OO RE © Ey Ee oe Demy eee - eae ea: 
a ; e Su 5 es ‘ 


agree weet a 


a ABBE 


“S655 


65656 
A5657 
C5660 


~ 5661 
#5662 


45663 
V5664 
(5665 
056466 
25667 
A567U 
£5671 
05672 
75675 
“5674 
¢5675 


e5676 
w5677 
45700 
R571 
#5702 

B5703 


c57A4 
CS7AS 
5706 
€5707 
G5716 
E5711 
¢5712 
@5715 
C5734 
@5715 
€5716 
C5717 
AST 
AS5721 


MAIN 


62677 
12640a 
AL46445 
444146 
n2K125 
V61111 
V63ALI 
AAA777 
AGBLiI114 
VAS7I1 
WAY ACT 
AB4AAA 
4274114 
GASAT7 
{at 4s 
VAA772 
63077 


PELTL11 
WAS7L4 
AAT 40a 
ALA 46 
ARA775 
Q63¢077 


1A24uA 


HAY 445. 


V2DRA5S 
AAVENS 
1A2621 
A2ua5seé 
NH6S233 
H2W215 
ABL333 
AS54404 


WVSA173 © 


AA6O2 27 
AAP SY 
YPMAWA 


STB3 


STB 5s 


eRCLAS 
eRELIS 


eRCL23 
eRCLSS 


RCLRET3 


SFIND COMPUTER TIME RASE 


JORST 

SUR 1,1 

STA 1,TIME 
STA 1, TIMES 
LDA “A,C377 
NnnasS A,TTO 
SKPDN TTO 
JMP ,@1 
DNAS 6,TTO 
SKP0D7 TTO 
IMP STB 
NYA 1,0 
ANND# 1,1,SKP 
HALT 

ISZ TIME 
JMP .=6 
HALT 


DPOAS 4,TTO 
SKPOD7 TINA 
IMP A,S 


ISZ TIMES 


JMP 
HALT. 


oe 


TIME BASE 1 
?TIME BASE 1! 


FTYPE ONCE TON SYNC TTO 


START TIME BASE 1 


TIME BASE 1 ESTABLISHED 
TIME FILLER 


;BFO 
SREAL TROUBLE 
SCOUNT 1 


7TTO CLOCK OFF}! 
7START TIME BASE j! 


sTIME BASE 1! ESTABLISHED 


sTTN CLOCK OFFI)) 


PRECALIBRATE SUBROUTINE 


SUB 
JMP 
LOA 
IMP 


“v,? 
eRCL3+14 
0,KBi 
eRCL341 


SUBZR %,”,SKP 


Lna 4,Ci4aKk 
DOCC @,0SKP 
LOA A,C1464 
NGAP v,0SKP 
STA 3,RCLRET 
Loa 2,C15 
WATT 
JMP 
\ 


@RCLRET 


JUNIT @ ENTRY 
SUNIT 1 ENTRY 
JUNIT 2 ENTRY 
SUNIT 3 ENTRY 
PSELECT UNIT 


IRECALIBRATE 


 PWALT 4,3SEC (OR UNTIL DONE) 


-80- 


aA @@kL MAIN 


WS722 
0§723 
05724 
45725 
057264 
Q5727 
“48732 
w5731 


05732 
05733 
05734 
BE735 
05736 


@5737 
V57 4A 
05741 


@5742 
05763 
G5744 
45745 
057 46 


05747 
v575A 
a5754 
a&752 
a575% 


25754 
V5755 
P5756 
W757 
w576U 


@A7 ES 
A762 


05763 


“454441 ,DORWS 


n2142a0 
wanda 
Q214Aa1 
U4A412 
W21402 
aAaudia 
n40420 


VA6237 
ViAK262 
HAGAAA 
AA6242 
0AGB422 


OA6256 
YAS4H2 


BA66O5 


HABZEU 
VABBUS 
AAARL7 
wR6242 
AAAALA 


YN6?57 
BA72A5 
QABAL7T 
HA6242 
AAN4AS 


VAN6261 
YaAbAGS 
AA72UN5 
A~6242 
VAb248 


AS44382 
ealeas 


AAAAGA 


ISEEK WRITE/READ/CHECK SUBROUTINE 


ICALL NORW 
a. CYL# 
, ADDRESS OF DATA GENERATOR 
} DISK AODRESS 
i] RETURN 
STA 3,NRWRET 
LOA A,4,38 IXFER CYL #& 
STA @,,09 
LOA @A,1,38 IXFER ADOR DAT GEN 
STA a,,001 
LDA @,2,8 IXFER DISK AODOR 
STA A,,002 | 
STA @,,008 
‘JSR @ISET 
NOSEK ISEEK !} 
eons a 1CYL # 
ERALT ; JERROR, ACLBSTATUS 
JMP E,MO ISKIP TO END OF TEST 
GENDAT SGENERATE DATA 
~o0i3 ONES PANDRESS OF MATA GEN 
PRGEND MEM ADDR 
WRITE WRITE |} 
| PRGEND MEM ADDR 
2N028 17 FOISK ADDRESS 
EHALT TERROR, ACLsSTATUS 
JMP E,.0O YSKIP TO END OF TEST 
READ PREAD 2] 
PRGEND+40@ §MEM ADDR 
0031 17 IDISK ADDRESS 
EHALT FERROR, ACYSSTATUS 
JMP E,90 SKIP TO END OF TEST 
CHECK tCOMPARE BUFFER A/B 
PRGEND pA 
PRGEND+4aQ 1 8B 
EHALT ICOMPARE ERROR, AC@#GOO0D 
E,003 LOOP JACIEBAD 
LOA S,OQRWRET 
JMP 3,3 


DRWRET? @ 


aga 


a4 @282 MAIN 


PWAIT FOR INTERRUPT TIMEOUT AFTER {a0 MS 
PRETURNGS IF TIMEOUT 
IRETURN#2 IF INTERRUPT 


VS764 H2G146h ,IWT ‘LOA A, TIMELY 
C5745 YAUj aa STA A, TEMP 
“45766 C6A4$77 INTEN | 
C5787 “AB3S7HR SKPDZ A sTIME FILLER 
C5770 V630A77 KALT 
C5771 AL4{44 Q0SZ TEMP 
A5772 vAu775 IMP 93 
5773 64277 INTOS IND INTERRUPT 
05774 WA443S8 OIA 1,DSKP 
¢G5775 nalaue JMP A,3 FERROR RETURN 
65776 w64433 YRETE - MIA 1,NSKP 
635777 “VAL4Uh JMP 1,3 INORM INTERRUPT RETURN 
SCHONSE AN ACTIVE PISK UNIT 
SRETURN WITH UNIT # IN ACO 
Hf * UNIT @ 3 } 
? UNTT {1 s&s 2 
, NTT 2 3 4 
J WNIT 3 @ | 
YVARAA 152521 ,ANSK$ SUBZL 2,2,SKP 
PAZAY 15112P MOVZL 2,2 
Y6HRD? N2uUg5i LOA A,NDSKS 
VERS 14345 AND 2,4,SNR 
V6AN4 WAn775 JMP ,=3 
ABAAS BAL AYA JMP “,3 
SSEEK SUBROUTINE 
p CALL SEEK tAC] @ UNIT 
; N CYL # 
] RETURN PACL & STATUS 
YRAUG NW54420 SKe STA 3,SKRET 
ARAAT 12H64AU SUB 1,1 
VG6ALY “euedsa LOA A,KAaL- .. 
A6es1 151222 MOVZ2 2,2,S82C 
ARAL] BVI4AS JMP SKI 
VAULS LATARA AGN a,4 
46014 CAW7Z7S JMP 43 
GAAI5 PAZOSA SSKLE MOC 1,9SKP ISFLECT SINIT 
VbCIO 42140 {0A @®,4,3 
VEOLT7T FPARTA "toa 1,Kb6 
“BA2F 4239KeA A400 1,4 SSEEK + CYL # 
VEGAL P61353 NON AP O,NSKP 
nbA22 NSAI67 LO4 2,f5 
HAADZ YRb227 WATT PWAIT SHAMS (OR UNTIL DONE) 
GEH24 BLO4A2 I1SZ SKRET PACL=ESTATUS 
ARn2PH vAZ4AWY IMP @SKRET 
PAY26 YAWAvwAa SKRETS3 a 


aps 


a @AB3 MAIN 


W6A27 
06038 
Q6AS1 


ABUAS2 
46433 
” 96034 


06235 
A6AS6 
86837 
GAA 
W6A4} 
Q6U42 
ABGa4S 
A6044 


A6Aa45 
A6aAaG6 
A6247 
vasa 
AbA5L 
vbus2 
V60838 
86454 
Z6a55 
N6A56 


A54426 
17652a 
WAQ406 


054423 
W34167 
“Aa4es 


"154420 
2344097 
“54407 
176400 
“54406 
A54406 
262677 
BaZa 


vAuL 44 
ARAUYA 
AABUARA 
UAAAUA 
BANANA 
nABARA 
AARAAA 
AAgABA 
AABACA 
WAAAKA 


eSET3 


eSETPI8 


oSETUPS 


ITR3 
ITRCT2 
ESWITS 
ERRCT2 
eRTRNE 
SAV23 
SAV}3 
SAVO! 
LOOPR? 
OSWT3 


STA 3,LOOPR 
SUBZL 3,38 


JMP 


STA. 
LOA 
JMP 


STA 
LDA 
STA 
SUB 
STA. 
STA 
IORST 


eSETUPS2 


3,LOOPR 
3,C35 
eSETUPS2 


3,LOOPR 


3, TTR 
3,ITRCT 
3,53 
S,ESWIT 
3,ERRCT 


JMP @LOOPR 


{44 
@ 
A 
4) 
a 
a 
a 
4) 
“A 
0 


Bay: ge ie 


VITERATE ONCE 


JITERATE 5 TIMES 


PADDRESS OF TOP OF LOOP 
ITHIS ROUTINE INITIALIZES 
SEACH TEST = 


1,1/0 RESET 


A QUAR4 


W6057 
AEG 
A661 
AEU62 
Us6AKS 
C6064 


AKBAS5 
AbBDbGE 
AGA67 
A6270 
vRA7L 
aAU7 2! 
AB473 
W647 4 
a6a75 
06076 
A6A77 
ARLALW 
vALaAl 
n6i14a2 
H6{AaAS 
GH{A4 
H61445 
C6106 
V61A7 
“v6i1ia 
A6ilit 
“w6112 
Ab6113 
M6114 
M6115 
“6116 


MAIN 


54772 
AS44122 
O54Anna 
“i 4aAnea 
“UAn777 
AAAS!) 


A54764 
A5R764 
444764 
A40764 
414755 
YVAUASA 
A34752 
054752 
034752 
175a¢5 
AA2Z752 
a7 4477 
17512a 
17512@ 
1751@3 
“VAUdalA 
AN6247 
024742 
AISU7 36 
204546 
AZU7 34 
AAS5HSA 
YQ65A6 
A204603 
ané6és63 
AAASB? 


eL UPD. 


eLQOP3 


STA 
LDA 
STA 
082 
IMP 
JMP 


STA 
STA 
STA 
STA 
0SZ 
JMP 
LDA 
STA 
LDA 
MOV 
JMP 


3, eRTRN 


3,C37 
3,8 
a 


onl 
o+2 


Sp eRTRN 


2,SAV2 
1,SAV1 
A,SAVO 
ITRCT 
cYcTs 
3,1TR 


S,ITRCT 
3,ESWIT 
So Se SNR 
@,RTRN 


READS 3 
MOVZIL 3,5 
MOVL 3.5 


MOVL 3,5,SNC 
JMP PCENT#+{4 


PCRLF 


LNA 


Lpa 
JSR 
LDA 
JSR 
JSR 
LDA 
JSR 
JMP 


1,ERRCT 


2,1TR 
MULT | 
2,TTR 
NIVD 

@IPDEC 


A,PCENT 


@ICHAR 


PCENT?1 


-84— 


‘ 
BINTRODUCE A SHORT 
DELAY IN THE LOOP 
ROUTINE TO ALLOW THE 
POTSK CART, ATTENTION 
LINE TO COME UP 


YEND OF TEST ITERATION 


INOT 1AM TIMES ITERATED 
PRESET ITERATION CNTR 


PRINT CARRIAGE 


PPRINT VALUE 
EXAMPLES 89% 


4 ANAS 


06117 
n6124 
vV6i121 
06122 
v6123 
BAI24 
06425 
“v6i1i26 
06327 
A613 
CALS} 
MBiLS2 
A6138 


¥6134 
“A“B135 
W6136 
06137 
V6140 
A61i41 
n6142 
AKBL43 
A6144 
A6B145 
M6146 


A6447 
PAL5E 
v6151 
“6152 
Y6153 
96454 
@6155 
@6156 
“6457 
C6164 
26141 


oMAIN 


vnAA45 PCENTS 
176400 
"454727. 
234725 CycTss 
1750u4 

AAD4IA 

“62677 CYC13 
A207 26 

824724 

A3A722 

175113 

“VB2728 

AA2716 


“74477 CNS$ 
i24073 
137415 
AAn4iA 
1753ua 
M24417A 
137620 
W2L513 
A4B4014 
AUN6234 
“A454 


074477 
H2AA72 
11744 
AAGS2A 
V34703 
175A@5 
UAnSUS 
WN4514 
A24513 
074477 
UAG744 


CNS13 


_ JMP 


“y 
SUB 3,3 
STA S,ERRCT 


LDA 3,ESWIT 
MOV 3,3,SZR 
JMP 
IORST 

LDA ®,SAV@ 
LDA 1,SAV1 
LDA 2,S8av2 
MOVL# 3,3,SNC 
JMP @LNOPR 
JMP @,RTRN 


READS 3 

LDA 1,KB3 
AND#® $,5,SNR 
JMP CNS 
MOVS 3,5 

LDA 1,C6 
ANOZR 1,5 
LDA @A,TRCL,S 
STA @,,+1 
RECLS - 

JSR ,DLY 


READS 3 

LDA A,KB4 
AND @,3,SZR 
JSR JOLY 
LNA 3,0SWT 
MOV 3,3,SNR 
o¢3 

JSR .DLY 
PEADS 3 

JMP CYCi 


cen 


PCHARACTOR 


‘THERE HAS BEEN AN ERROR 


31/0 RESET 
IRESTORE ACtS 


SSWITCH 9 
¥(@) sLOOP ROUTINE 
r(1)sPROCEED TO NEXT TEST 


JERROR LOOP. IS A RECAL 
REQUESTED 2? | 

7NO GOON 

SYES, ASSEMBLE THE 
TUNIT # FROM SW5=6 


PICK A RECAL 
PRECALIBRATE JU} 
IDELAY 1 SEC 


IF SwW4ei DELAY 
) 1 SEC, 


FORCED 2 SEC DELAY 7? 


BNO 
HYES, { SEC 
- 4 SEC. 


4 @UB6 


¥vAL62 
V6B165 
U6{64 
06165 
WB {Ab 
46167 
ABL7i 
AG174 
¢6172 
A6173 


“6174 
@6175 


V:6176 
a6177 
AH2UD 


R262A1 
¢r620e 
Q@462A8 
PROAG 
¥hH2Aa5 
¥VbA206 
AH207 
Ab2in 
vA2ii 
MA212 
Vb218 
YV6214 
86215 


— WH216 


@6217 


Y622a 
P6221 


AA222 
¥62238 


V6224 
“6225 
“6226 
“6227 
nb23¢4 
nh231 
W4232 
“6233 
C6234 
V6235 


MAIN 


1454667 
17652a 
WAR4B3 
“54664 
17640 
54667 
%34657 
1750u4 
HAAA2S 
034656 


YVASASA 
054652 


A7 4477 
177112 
vaAnats 


M4u653 
WA4651 
“h6247 
PAH25A 
WA6222 
H2U643 
VEAb 4A 


126000 


LA7TAUA 
0A4522 
A2UNH4S 
n24637 
¥1iBHS3 
An2ZESS 
AA2Hh3S2 


A%6415 
YA6337 


14152a 
WAunti 


W242 46 
4?5a04 
PAD4Y5 
q7iaana 
YwI4A2 I 
YVb63a77 
gajaaa 


oEHL 3 


wEHALT? 


eEH2 2 


ERR18 


ERET3 


ICHARS 
IPDEC3 


HEADERS 


PC 


AUTOERS 


W6A277 


AS4A52 
PALABRA 


STA 3,.RTRN 
SUBZL 3,5 


JMP EH? 


STA 3,.RTRN 


SuB 3,3 


STA 3,0SWT 
LOA 3,ESWIT 
MOV 3,3,SZR 


JMP ERET 


LDA 3,,RTRN 


FERROR, C3) 8PC 


JSR AUTOER 
STA 3,ESWIT 


READS 3 


ANDL# 3,3,S82C 


JMP ERET 


STA 
STA 
PCRLF 


MESSAGE 


HEAVER 


A, SAVO 


1,SAV1 


LDA A, ,RTRN 


ST4 
ANC 1, 


AND @,1 
JSR POLT 


LOA 
Lhé 


182 


JMP 
IMP 


CHAR, 
PDEC 


eTXTE 1 


Le 


a,ESWIT 


a,SAVOG 
1,SAV1 
ERRCT 

@,RTRN 
@,RTRN 


LDA 1,EGGS 
MNV 1,1,S528 


JMP .¢5 
MOV 3,2 


LNA 3, eRTRN 


HALT 


JMP Q,2 


INTOS 


LDA 3,EGGS+4 


JMP a,3 


- 


JERR WITH FORCED 1 SEC DELAY 


SERROR SUBROUTINE 


SERROR WITH NO DELAY FORCED 
DELAY SWITCH 


JOPERATOR,SET SwWITCHS] 


LOOK AT SWITCH i 


PRINT CARRIAGE 
7AND HEADER 


SPC NF ERROR 


-~86— 


a A087 


@6236 
26237 
e624 
06241 
a6242 
62438 
6244 
6245 
6246 
06247 


6258 


“6251 
26252 
v6258 
M6254 


96255 


26256 


— 06257 


26262 
26261 
6262 
6263 


26264 


B6265 
Y¥6265 


QA267 


“6270 


VB271 


- 


AG272 
26273 
26274 


96275 


06276 
“6277 
AESAB 
W651 
CH3AR2 
AESAS 
ABRSA4 
QESAS 
BASAE 
B6S5P7 


MAIN 


1A24BA 
454431 
142432 
AAB413 
054426 
¥34426 
125129 
{Gi10A 
142412 
142408 
L2510a 
175404 
AAB77$ 
17644} 
176420 
AAZ4S&LIS 


102462 
54441 
U344i4 
125248 
{AaL2eat 
143220 
17544 
600774 
125269 
AA2aAL 


AAABHKA 


177764a 


A20172 
240164 
A2ZAL45 
AA4uiaa 
H637a0 
Y63A77 
V64433 
{ASALT 
ABSAT7 
214444 
YVAA772 
@14164 
020766 
AAL4QAa 


pACL REM ACER(CACH,ACI)/AC2 


DIVIN: 
DIVDAt 


NIVOS 


OLOOP! 


DEXT$ 


SUB 
STA 
SUBZ# 
JMP DEXT 
STA 3,MSAV 
LDA 3,M28 
MOVZL f,1 
MOVL 6,0 
SUB# 2,8,S2ZC 
SUB 2,8 — 
MOVL 1,1 

INC 3,3,S2ZR 
JMP PLOOP 
SUBO 
SUBZ 3,35 
JMP @NSAV 


o,@ 


PCACA, ACL) SACL CAC2+ACB 


MULT 3 


MLOOPS 


MSAV83 
MoQs 
eOLY’ 


oDLY18 


SURC 6,94 

STA 3,MSAV 
LOA 3,420 
MOVR 1,1,SNC 
MOVR @,%,SKP 
ADDZR 2,8 
JNC 3,3,S2ZR 
JMP MLOOP 
MOVCR i,1 
JMP @MSAV 


a,Ci2 
@,ITRCNT 
a, TIME 
a,TEMP 


DIA A,NSKP -- 
AND# @,0,SKP 
HALT 
NS2 
JMP 
NSZ 
JMP 
JMP 


TEMP 
226 
ITRCNT 
eOiYt 
a,3 


= g7= 


3,MSAV 
2,4,82C 


Se Se SKP 


IDYVIDE 


MMULTIPLY 


IDELAY 1 SEC 
PiD.X1AOMS © 


{YA MS 
DELAY LOOP 


w= *e ~e “Ss Ww we 


TTO NON INTERRUPT PACKAGE ( 
y"MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLR 

P"CHAR" PRINTS ASCII CHARACTOR, C(CAIR,CCAYL MUST BE @ 

SWILL RETURN #2 IF CC@JRGA,CORRECTS THE PARITY,33 SIMULATE 
"TYPE" PRINTS CCWIR, MUST HAVE PROPER PARITY. RETURN IS 

ITO CALL*+1.REPLACE THIS ROUTINE WITH INTERRUPT TYPE IF DESIREO, 
"CRLF" PRINTS. A CARRIAGE RETURN 

y"POCT" PRINTS CCi1) IN OCTAL FOLLOWED BY A TAB 

r"POEC" PRINTS C(41) IN DECIMAL,LEADING ZEROS SUPPRESSED, 


SFOLLOWED BY A TAB, 


¥54570 MESS! ST4 3,MESSR SPRINT A TEXT MESSAGE 
V7Ab77 READS 2 

153102 ADDL 2,2,82C 7NQ PRINT YF SWia] 
AP1401 JmMP 1,3 

uy~vs64 ISZ MESSR 

E31 40a LOA 2,4,3 3002) POINTS TO MESSAGE 
024125 LNA $.,0577 74 8 BIT MASK 

A2ZiavA MES,13 LDA A,4,2 ICC2Z)ED0ATA WORD 

125112 MOVL# 1,1,S82C 

125701 ANDS 1,0,SKP 

123441 AND 1,€4,SKP ICCA SNATA CHARACTOR RIGHT 
151 4aa INC 2,2 © SINC TO NEXT wORD 

12400a CaM igi SFLIP MASK 

WASSTA JSR CHAR, IPRINT 

AAY7T7 I JMP MES, 1 IANQTHER 

W6S511 SKPBZ TTA 

UAA777 JMP ,ol-. 

vRn21LL NyQc TTO 

nA2546 JMP @MESSR ILAST 

ya24vj ZO0CT!3 SUR ”a,A,SKP 

Q2WV2AA POCT: LDA @,C6A 

A3A437 LDA 2,QCTAB SPRINT CCL) IN OCTAL 
YARSAS IMP 543 
“U3U445 POECSE LOA 2,NECTB sPRINT CC4} IN DECIMAL 
{A244uAa SUB a,@ Pee ; 
4544535 STA 3,RANRET 7BOTH ENTRYS PRINT NUMBER 
74477 READS 3 

177102 ADDL 3,3,S82C INQ PRINT IF SWis} 
pA2450 JMP @RADRET 

4n448 STA %,ZSUPP STHEN YAR TO NEXT POSITION 
YVaAAR{ STA 2,,%3 

VArAALA NECHCT? A rA"LNA 2,TABLE" INSTRUCTION 
ALA777 7SZ ,=i 

WS4d48 LOA O,RADRET FSETUP "TAR" AT END 
A22516 LDA B,CHTAR 

eon tceves MOV 2,2,SNR PIF TABLE ENTRY=4 

AUS] JMP CHAR, PEXIT WITH TAB 

A34436 LOA 3,ZSiIPP SZERONS SUPPRESS STUF 
LAZ4AA SUR A,A : 

$46512 NECGTs SuRL*® 2,1,S2C 

VAR46H5 JHP DECPr 

1464U0 SUR 2,1 JFORM THE NIGIT 

SR42EA LDA 3,C6A 

ALS INC A,” 

AAC77S JmMP OECOT 


~88=— 


a @@B9 


6565 
¥V6366 
B6367 
A637" 
86371 
W6372 
06375 


@6374 
06375 
26376 
@6577 
vsann 
“6401 
PH4N2 
F64AS 


C6404 


“Y64A5 
ahaa 
V.6407 
M6410 
“AH4{I 
26412 


n6413 
AB414 


MAIN 


151255 
AI42a0 
54424 
163000 
175704 
04423 
Aaa754 


A3A426 
1ABABA 
ALZAAD 
ARIABA 
UAAlaa 


AAAALA - 


novaal 
vnanaa 


2304356 
AAUAL2 
123420 
AAL75Aa 
AAAL44 
AAAAL2 
AAAAU SL 
AAAARA 


-yanaAla 


AABAKNA 


aAAgvneaA 


DECP3 


OCTAB3 


DECTB3 


eRDX 18 


eRDX 8 


ZSUPPS 


MOVZRA 2,2,5NR 


LOA 
STA 
ADD 
MOV 
JSR 
JMP 


3,C6@ 
3,ZSUPP 
3,0 
3,3,SZR 
CHAR, 
NECOCT 


sC (CO) SO0IGIT 
MAKE ASCYY 


PPRINT 
GET NEXT DIGIT 


LNA 2,,414,-DECOCT 
1ZAUnAG 
1On4D 

{QAaL 

Laan 

it 

1 

Aa 


LOA 2,,%14,"DECOCT 


18908 
12a 
1a 
12 

i 

@ 


a 


RADRETS &@ 


-89=- 


aA 2090 


V6415 
wh 416 
v6417 
¥6420 
V6421 
6422 
W6423 
AR424 
“6425 
06426 
Q6427 


nF 4Su 
A431 
“6432 
YEAS3 
06434 


26435 
GA4S6 
¥6437 
Ab440 
hA444 
V6442 
06445 


$6444 


“6445 
¥6446 
WR447 
AB 45K) 
vVh45)4 
"6452 


MAIN 


A54454 CHAR,$ 


121325 
nay ari 
W40452 
176AUD 
117aaa 
1934@4 
wAan775 
176668 
A2n444 


1633540 


HI444A 
116415 
“Ansan? 
UA4A46 
NAD4LS 


A2UN435 
A34432 
162424 
HAA777 
{V{AAS 
UARSKNS 
v2n4asi 
AU4435 
WAA7T7A 
vé4yV4d25 
¥Y6S511 
VAB777 
VAWALY 
VA2ZA17 


CHARS 


CHARS 


STA 3,CHRET 


MOVZS 94,@,SNR 


JMP 1,3 

STA O,CRSAV 
ADC 3,3 

ADDN A,3 

ANN 3,%,SZR 
IMP .a3 
SUBCR 3,3 
LNA A,CHSAV 
ADNS 3,6 


LOA 3,CHTAB 
SURa 0,3,5NR 
JMP +7 

JSR TYPE 

JMP CHAR24+]4 


LOA a,CHORZ 
LOA 3,CHTAB 
SUBZ 3,0,SE2 
IMP y= 

MOV @,4,SNR 
JMP CHAR2 
LDA @,CH240 
JSR: TYPE 
IMP .etu 
STA A,CKORZ 
SKPBZ TTON 
JMP ,=1 
NINC TTO 


JMP @CHRET 


-90- 


SPRINT C(@) RIGHT 
PRETURN #2 IF NULL 


SCOMPUTE THE PARITY 
?COMBIND PARITY WITH CHAR 


11S THIS A TAB 


HYES 
INO PRINT IT 
SEXIT 


SIMULATE A TAB 
sVIA 1 TO G9 SPACES 


a aag{ 


06453 
6454 
06455 
06456 
A6457 
_ 6466 

V6464 
6462 
06463 
A6464 
‘M6465 
~ (6466 
@6467 


n647L 
06474 
06472 
06473 
P6474 
06475 
06476 
U6477 


v65ae 
GK5SAL 
AB5A2 
Q6E5A8 
YVBSAS 
“65A5 
¥6506 
46507 


eMAIN 


060477 
1A3{A2 
GAL 40a 
054417 
V204A1R 
AN4735 
N20416 
AGB4733S 
nv2ai25 
AnA73I 
{A24AA 
A4B445 
2A2406 


aAaAnats 
AAnAADA 
YvAgnAuD 
AAGALA 
ANnV24GA 
AAUABA 
WMAge215 
AAAZL12 


HARAUA 
P5446 
“A1LA774 
ABS51i1 
AAA777 
ABLiLi1 
VA2?4Hh 
URBABA 


CRLF 8 


CHTAB? 
CHRETS 
CHSAV3 
CHORZ3 
CH2A4A3 
CRLFR8 
C2158 

C2ie2s 


MESSR$ 
TYPE? 


READS @ 
ADOL 8,8,S7ZC 
IMP 9,3 

STA 3,CRLFR 
LDA a,C215 
JSR CHAR, 
LOA @,C212 
JSR CHAR, 
LOA 88,0377 
JSR CHAR, 
SUB 4,0 

STA @,CHORZ 
JMP @CRLFR 


24a 
9 

215 
212 


a 


STA 3,TYPRET 


ISZ CHORZ 
SKPBZ TTO 
JMP =] 
DOAS &,TTO 
JMP @TYPRET 


TYPRET3 @ 


ee 


‘ 
NO PRINT IF SWist 
ISAVE RETURN 


SPRINT CARRIAGE AND LF 
PRINT RUB 


CLEAR HORZ POSISTION 
JEXIT 


STYPE THE C(A)R IF 


oo I cee aes Bai ts pane Snead a aah Bi eso nog ign Soret Be 


aA AUQ? 


V6510 
VAS5I4 
“HASL2 
wH515 
“6914 
@EAS15 
W6516 
"WASL7 
A&SaAA 
“6521 
6522 


46523 
AAH24 
CAD?DS 
vA526 
P6527 
DE5S3A 
PASS 
“6A532 
P6533 
“F534 
“V6G45S35 
“6536 
~AFE537 
VAS 44 


6541 
YAH 42 
6543 
06544 
A545 
76546 
A6547 
v655a 
v695it 
v6552 
PASSS 
A554 
vAD55S5 
vod5s56 


V638457 
~VASBY 
VADdSAl 


MF562 
CASAS 
QA5AhS 
V-6565 
vA5é66 
CA547 


MAIN 


A54724 
14252a 
ASOaLL 
14324a 
151317 
1416498 
i5iint 
151324 
R42311 
142507 
CABELHA 


13n4il 
14324a 
151317 
13454a 
L2AAHA 
VS2528 
143322 
141541 
1240305 
144504 
V4A5523 
W5E2460 


14154 


PARAILS 


L3icit 
143240 
151317 
1312940 
12¢4a6a 
3525238 
143322 
1415a1 
{20305 
{44544 
YW45523 
ABALGA 
t4i5vi 
BAALES 


A?P6A4A 
U26477 
WAUAAA 


454724 
162522 
S28 Se 
146516 
{7n326 
n52516 


MSGi! 


MSG25 


MSGH38 


MSG42 


“MSG53 


STYPE “W FOR CARTRINGE 
eTXTE JTYPE M FOR CARTRIDGE) 


’ 1 FOR 1@ SURFACE DISK PACK 
eTXTE 1 1 FOR 1 SURFACE DISK PACK} 


; 2 FOR 2 SURFACE DISK PACK 
eTXTE ! 2 FOR 20 SURFACE DISK PACK] 


eTXTE | ~?e] 


(Ge3) TO TEST 
(Mo)? TO TEST t 


WNIT NUMBERS 
ITYPF UNIT NUMRERS 


ITYPE 
oe TXTE 


=92= 


Anos 
VES5S7HU 
06571 
“6572 
HW6573 
06574 
BAS75S 

“06576 
C6577 
DAGAG 
A66A1 


“6602 
C6603 
N66R4 


n66A5 


MAIN 

W41115 
151305 
1241238 
vsnAasA 
AS14455 
12v251 
147724 


152240 


051705 
vnanaseda 


aA4as2a 
W¥51523 
AABAAD 


AAGARA 
AAGTAA 


A45504 
12412a 
144544 
A43504 
13a64a 
AAVARA 
unuane 
AAK222 
WAUAUD 
VAAADA 
NAGR2A 
vanaaa 
BAARVA 
1ABASS 


MSG63 


PRGEND8 


PASS 
eTXTE JPASSI 


a 


eLOC 6749 
eTXTE JNKP DIAG 3] 


AnAKAS 
BEGIN 

AnNAYAS 
ANAYAA 
ACA? 
AAANAD 


— AGALBAG 


1AAKSS 


eEND 


~93- 


MOVING HEAD DISC 
RELIABILITY 


-94— 


O30 MAIN ' 
O14 


G2 

Q38 7 

xe | MOVING HEAD OISK RELIABILITY PROGRAM 

G5. 

a6 pi, ASSTRACT 

27 
- 06 } THE HOVING HEAD OISK RELIADILITY PROGRAM 
@9 ] TS A MAINTENANCE PROCRAM DESIGNED Yo 

10 } EXCRCISE AND TEST THE 46046 DISK CONTROLLER 
t1 ] AND 1©4 DISK DRIVES, THO DISK ORIVES MAY BE 
12 } SHARED BETWEEN TWO COMPUTERS IN WHICH CASE 
13 } THIS PROGRAM MAY BE RUNNING IN EACH COMPUTER, 
14 

15 } NOTE 

16 ’ vove 

17 } ONE COMPUTER RUNNING RELIABILITY 
18 } TEST (SA 403), THE OTHER (SA 46223 
19 } ONLYI}S 

28 

2i 5 TRE CONTROL CAN BE DEVICE 33 OR 73, 

22 

23 32. MACHINE REQUIREMENTS 

24 

25 } NOVA FAMILY CENTRAL PROCESSOR 

26 } GK READ/WRITE MEMORY 

a7 ’ JELETYPE 

26 } 4040 DISK CONTROL 

29 ) ( 8047 OR 4846 CONTROL ADAPTER 

30 . {9-4 MOVING HEAD DISK ORIVES 

ot 

v2 3, OPERATING PROCEOURCS 

3&3 . 

34 ; A, LOAD PROGRAM USING BINARY LOADER 

35 ) B, RESET AND START AT ONE OF THE 

~—6«86 ’ ADDRESSES SHOWN BELOW, 

37 

90 } STARTING ADDRESS 

39 ! 2 RUN ALL 

49 j 4 SOT DISK CONTROL ADDRESS To $3 
4{ ; 3) Sod “DLO CON TUL AQOREGS - For 73 
42 5 fou ACL eG TY “eet. ALY S¥EINZS es 
£3 , god Re bceuvek bi’ Toh VEN CYC TACERS 
4, ? Gio CCU aoe wa es eer oe CYR TN ea 
és j Ge Cate oe aor eee 

£6 4 ees Ml ge 

47 j 409 COMMAND STRING INTERPRETER 

roe £06 ONGCS Fust 

f9 , j A987 PORGS a 

ea i S16 Lee Tae: Tet 

54 j a4y4 PEOATING ONG TEST 

ae. , 409 Pies ae. perc. Test 

oe: } SiG PON: ainotet 

54 , are Be ane ed bes. ee. 

85 j 2s Ree See we Uke Se <8 

S56 H 446 RECALTORATE UNIT 2 

57 j 447 RECALIBRATE UNIT 3 


-95- 


4 @8@2 MAIN ; 


at 

a2 } C. ERRORS = ERROR STATUS ISD PRINTED 

03 } WHENEVER ENCOUNTERED, WHEN DATA ERRORS 

a4 } ARG FOUND ONLY THREE ARE PRINTED PER 

as } ENCOUNTER, (SEE PARAGRAPH 38) 

06 a 
a7 ' SWITCH SETTINGS 

ao ’ ~. SWOat DO NOT HALT FOLLOWING ERROR 

09 } SWiat INHISIT ERROR PRINTOUTS 

12 } SW201 REPEAT CURRENT TEST (SCOPE LOOP) 

11 ! SW3a1 INHIDIT CHECK WORD AND DATA ERROR MESSAGES 
12 ) Sw4a, DREAK TO ALLOW DISK INTERCHANGE 

13 ' GW5ai FOR READ ONLY MODE | 

14 

15 ’ OD, STATISTICS © TYPE ANY KEY DURING 

16 ! RANDOM TESTING TO GET A REPORT OF THE 

17 ) NUMBER OF WORDS WRITTEN AND READ, PLUS 

18 ’ THE NUMBER OF ERRORS, 

19 

2n 14, PROGRAM DESCRIPTION 

21 

22 } A, RELIABILITY TEST (SA 400) 

23 } A RANDOM NUMBER GENERATOR IS USED TO SELECT A 
24 ! DISK DRIVE,CYLINDER,HEAD,BSEGINNING SECTOR, 
25 ! ANO NUMBER OF CONSECUTIVE SECTORS, RANDOM 
26 } DATA IS THEN GENCRATED, WRITTEN, AND READ, 
27 ’ THE SEQUENCE I9 REPEATED INDEFINITELY, 

28 

29 } B, RELIADILITY TEST (SA 401) 

30 SAME AS A, EXCEPT THAT ONLY EVEN 

34 . ’ NUMNGCREO CYLINDERS ARE USED, THIS 

32 } ALLOWS A TWO COMPUTER SYSTEM TO RUN 

33 ’ SIMULTANEOUS RELIABILITY TESTS, 

34 

350, ’ C, RELIADILITY TEST (SA 402) 

360 ) SAME AS B, ONLY FOR ODD NUMBERED 

37 ! CYLINDERS, 

30 
39 ’ O, OISK ADDRESS YEST (SA 403) 

49 j RANDOM DATA IS FIRST WRITTEN THEN READ 

4y } FROM ALL SECTORS CN EACK READY OLSK, THIS 
£2 } INSURES TRAY ALL GISK PACK SURFACES ANE 

43 ; USEACLE AND THAT THE DISK PACK IS FORMATTED 
1 ; _ PROPERLY, | 
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O4 ( 

02 : 

03 , FP, COKRMAND STRING INTERPRETER (SA 465) 

04 } AS & FROUOLE SHOOTING AYO THE SEAVICE 

03 j ENGINGER HAY TYPE IN HIS OWN TEST LOOP, 

Od , APTER OTARTING AY 400, THREE ARGUMZNTS 

Q7 } MUST DE ENTERED IN RESPONSE TO THREE 

66 } PROGRAM QUESTIONS "UNITH, HOATA", AND 

09 ) MCOMMANOD STRING4, . 

19 | 

ii 

12 ‘ 

13 } I. UNIT! TYPE UNIT & OR CARRIAGE TO 
] } USE THE PREVIOUS ENTRY 

{ 

16 py. t Qt, DATAS  RANSRANDOM 

{7 | } ALOGALL ONES 

40 } ALZEALL ZEROS 

19 ’ ATQiL10C1L110 PATTERN 

20 j PFLOQPLOATING ONE PATTERN 

Ot } FLZSP7LOATING ZERO PATTERN 
22 

23 } ALTERNATIVELY ENTER A STRING OF 
a4 ’ 4 OCTAL 16 DIT WORDS TO BE 

@3 } ; . USED AD DATA, TRE-wORDS 

26 p G@NTERED ARE USED REPEATEOLY 
27 } TO MAKE UP A SECTOR BLOCK, 
26 ? TYPE CARRIAGE TO USE THE 

ee } PREVIOUS ENTRY, 

5G 

of i IIt, COMMAND STRING? 

32 

33 p 1, OPTIONS i, ROAD HEAD,SECTOR,#SECTORS 
54 j Qe WRITE SANE 

35 , 3, SEEK CYLINOER 

36 } 4, RECALIORATE 

07 , Se LOOP (GO TO BEGINNING) 

30 ) 6. DELAY €N) 12,543 INCREMENTS 
39 B. 7. TYPE CARRIAGE TO USE THE 

49 a | PREVIOUS COMMAND STRING, 

ra | 

62 } NOTE THAT 2iTneGe Seeccs Cas COexMA 
4S j PAY OE UCSD 4G AN ARGUMENT DELIMITER, 
a4 ? Ctl WegrON sce 1G TERA ZNE. 0 OY 

4G ; Oto Gein | ALC ys Se ee 

re ; eo gig ieetnnte ev CERN BR ade hee ps ee 

i? : Wee. eG OAs iat ees “Ua eee, Pee a hey 
4G ; a Bow PON Boo we Wek. OR KR eS EY 
49 ; HILL CAUCE Tiere PREVIOUS: DLox 

oo } AGO PRARMC lea OO De. Woe oe 
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a1 ‘ 
G2 , TNE FOLLOWING EXAMPLE WOULD CAUSL UNIT 
03 } 1 TO REPEATCOLY SECK CYLINDER 
a4 ’ ~. O60, WRITE SECTORS 2 AND 3 WITH HEAD SB, 
as ’ THEN ROAD IT CACK AND CHECK, DATA YS SPECIFIED 
08 } AO ALTERNATE wORDS OF ZEROG YHEN ONES, 
7 
‘60 j UNIT! { 
99 } DATAS 0,177777 
12 } COMMAND GTRING! GEEK 68 WRITE 5S,2,2 READ SAME LOOP 
i! 
12 
13 } i. G, ONES TEST (COATA & ALL 1'9) 
14 } ZEROS TEST (DATA B&B ALL @!S) 
{5 } 110110 TEST (DATA a WORDS OF LiBLiaLieiiairiad) 
16 } FLOATING ONE TEST (EACH SUCCZOSIVE WORD 
17 | CONTAINS ONC {$ SIT WHICH I8 MOVED 
18 }  RIGRY ONE BIT LACH WORD) 
19 ) FLOATING ZERO TEST (COMPLEMENT OF THE 
22 } PLOATING { TEST) 
“21 
22 . } EACH OF THE ADOVE USE TRE BASIC OISK ADORESS 
23 } FEST, SUCSTITUTING THE APPROPRIATE DATA, 
23 } ANY OF THESE PATTERNS INCLUDING THE RANDOM 
26 ] DATA USED FOR THE DISK ADDRESS TEST MAY 
27 } DE RUN IN TAZ "READ ONLY" MODE, THIS IS USEFUL 
20 ? POR CHCCKING THE INTERCHANGEABDILITY OF OTSK 
29 } PACKS O€TWEEN VARIOUS OISK ORIVES, 
5@ 
Ot } FO GENGRATE A DATA PATTERN START AT THE 
32 } APPROPRIATE LOCATION AND SET SW4 TO A ld, 
33 } WHEN THE ENTIRE PACK HAS SEEN WRITYEN AND 
94 j READ THE TELETYPE PRINTS "INTERCHANGE DISK" 
35 } AND THE PROGRAM HALTS, THIS PACK MAY NOW 
36 } BE READ FROM OTKER DISK ORIVES IN THE READ 
317 p12. ONLY MODE (SwWOaj), 
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95, ERROR REPORTING AND RECOVERY 


ew =w “ Ss Ww «2 “J 


ALL PHASES OF TRE SO7THARE WORK THROUGH 

4 MAIN SUOROUTINES DZSCRISCO BELOW, EACH 

SUBROUTINE HAS A NORMAL RETURN (#3) AND 

AN ERROR RETURN (e$), EACH SUDROUTINE WAITS FOR DISK 
COMPLETION WITH INTERRUPT ENABLED, & FAILURE 

JO DETECT INTERRUPT WITHIN SOQMS (3 SEC FOR 
RECALIGRATE) RESULTS IN A "TIMEOUT" ERROR, 


RECALIBRATE © ANY UNUSUAL STATUS IS REPORTED 
IMMEDIATELY AND AN ERROR RETURN EXECUTED, 


SEEK » SEEK ERROR STATUS INCREMENTS SEEK 
ERROR COUNTER, ANY ERROR STATUS RESULTS 
IN STATUS PRINTOUT, 


WRITE © FOLLOWING "DONE! ON A WRITE, ERRORS ARE 
CHECKED IN THE SEQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEOURE 13 OUTLINED FOR EACH CASE, 

IF THE ERROR 13 NOT PRESENT THZ NEXT CHECK IS MADE, 


1. READ/WRITE DONE STATUS » IF NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 


2, MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
SIT, SEEK ERROR, ENO CYLINDER, OR DATA LATE), 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT JHE ILLEGAL STATUS, AND DO AN ERROR RETURN, 


3. ADDRESS ERROR 
Sei PIRSY TIME = INCREMENT ADDRESS ERROR COUNT 
AND REPEAT THE WRITE, 
9.2 SECOND SUCCESSIVE FAILURE © INCREMENT 
PERMANENT ADDRESS ERROR COUNT AND DO A 
ERROR RETURN, 


4. ENDING MEMORY ADORESS =» INCREMENT THE MISC ERROR 
COUNTER, PRINT TRE ERROR MESSAGE, SET THE FATAL FLAG, 
AND GO YO 5S, 


So ENOING DISK ANORESS = INCREMENT THE 4M] 
uf 


COUNTER, PRINT THe ERROR MESSAGE, SET THE 
AND GO TO €, 


-99— 


o Q@0M6 
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=.= “Ss @Ge GW 


= “= ww Gs Ge ee es = “Ge G!, 


we ee we “es “Se we “ we 


Se i ite tie inet in ee i eo ee ee 


READ © FOLLOWING "OONE" ON A READ, ERRORS ARE 
CHECKED IN THE SCQUENCE SHOWN BELOW, ERROR 
RECOVERY PROCEDURE 13 OUTLINED POR EACH CASE, 

IF THE ERROR IS NOT PRESENT THE NEXT CHECK IS MADE, 


1. READ/WRITE DONE STATUS = I? NONE, INCREMENT THE 
MISC ERROR COUNT, PRINT ILLEGAL STATUS MESSAGE 
AND DO AN ERROR RETURN, 


2. MISC STATUS BITS = (ANY SEEK DONE, ANY SEEKING 
BIT. SEEK ERROR, ENO CYLINOER, OR DATA LATE), 

IF ANY ERROR INCREMENT THE MISC ERROR COUNT, 
PRINT THE ILLEGAL STATUS, AND DO AN ERROR RETURN, 


Se ADORESS ERROR 


Sei FIRST TIME © INCREMENT ADDRESS ERROR COUNT 


AND REPEAY THE READ, 

S22 SECOND SUCCESSIVE FAILURE = INCREMENT 
PERMANENT ADDRESS ERROR COUNT ANDO OO A 
ERROR RETURN, 


4. CHECK WORD ERROR 
4,1 PIRST TIME » INCREMENT THE CHECK WORD 
ERROR COUNT AND SET THE RETRY FLAG, PRINT 
"CHECK WORD ERROR" AND GO TO 5, 
4,2 SECOND SUCCESSIVE ERROR © INCREMENT THE 
PERMANENT CHECK WORD ERROR COUNTER AND SET 
THE PATAL FLAG, PRINT "CHECK WORD ERROR" 
AND GO TO 5, 


Se DATA ERROR 


Sei FIRST TIME © SET THE RETRY FLAG AND PRINT 


ERROR REPORT, 


Seiei CHECK WORD ERROR = DECREMENT THE 
CHECK WORD ERROR COUNTER. AND INCREMENT 


THE CHECK WORD & DATA ERROR COUNTER, 
GO TO 6, 


Sele2 NO CHECK WORD ERROR =» INCREMENT 


THE DATA ERROR COUNTER AND GO TO 6, 
Je2 SECOND SUCCESSIVE ERROR = SET THE FATAL 
FLAG AND PRINT THE ERROR REPORT, 


eee lk CHECK “ORD ERROR © DESREXENT 
TRE PERMANENT CHECK wORD ERROR COUN 
AND TRERGMGNT FRE PERMANGAT. CHECK 

G Oita ten Row Data ta, GCs Sa ey 
Seow Se. GLO oko a woe iy ee 
TRE PERMANENT DATA ERROR COUNTER, 
GC TO 6, 
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04 
Q5 
08 
07 
0d 
Q9 - 
12 
ii 
42 
13 
14 


eo MAIN 


( 
3S, ENDING MEMORY ADORZSS ow INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG 
AND GO TO 7, 


7, ENDING DISK ADORESS » INCREMENT THE MISC ERROR 
COUNTER, PRINT THE ERROR MESSAGE, SET THE FATAL FLAG 
ANO GO TO 8, 


8, NO FURTHER CHECKS 
Gi RETRY SWITCH ON # PRINT "FRY AGAIN" 
AND REPEAT THE FCST, 
8,2 FATAL SWITCH ON » 00 A ERROR RETURN, 
8,3 NO-SWITCHES ON »© DO A NORMAL RETURN, 
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a 8988 MAIN 


ai 
02 

a3 anneal | sU0E 4 

@4 ¥AGA1 020670 INTERRUPT | 

as weane aageaas JNP O,et | ISTART HERE, RUN ALL 
06 W803 VA0413 eRAL | 

47 “BAS “A2006 IMP 0,42 ISET ADDR TO 33 
28 YABBS Bn2007 JHP 0,%2 #8ET AOOR TO 79 
@9 OAGA6 AAAS! FXADD 

19 08087 Bandai FXADD+} 

11 

“42 guau22 2L0C 22 

13 | 

(£4 @a922 ananel ORVS!? 1 SUNIT @ CODE 

15 08823 aaanve 2 } i 

16 “0024 B2A004K4 4 , ie 

17 40025 gaoaia 12 } 3 

18 

19 “4026 AABAAD UNTINS) B 

20 02027 840000 40080 

21 BAB5A Lannea 1000288 

22 BAH31 140008 140000 

23 “232 A400NA UNTONE 44009 

24 82233 220000 20000 

25 BWAAS4S ALanAe 12828 

26 @A835 nnanan 4088 


27 6436 BAABBA FLOL! @ 
28 BABS7 AARALA FLOZS 2 


29 
32 QAAa4} eL OC 41 
Si 84041 283749 TYPE 
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19 O0AL55 
28 88156 
21 08157 
22 8a16a 
2s OALG64 
24 80162 
25 @A163 
2G “AaLG4 
27 @O165 
23 08165 
29 88167 


Si 08178 
32 82174 


34 081372 
35 AAL73 
36 82174 
37 88175 


MAIN 


OG00405 
QAOCG4 
OAC0n4G 
BCO910 
800604 
B2700!0 
©20010 
BOECKA4 
080026 
OAGABS 
QA00BA 
OeB004 
Va00R4 
GAC004 
242004 
OABRa4 


BHBABH 
20000 
HABBO 
BGt080 
COCeB89 
HB800aa 
BUB00H 
890805 
2e0008 
BAGG0G 
008167 


BAGBOM. 


OSAH08 


QA2000 
G@ALBaR 
202400 
ABALZAB 


CYLFS 
CYLT3 
SCENTS 
SEKRERS 
WOOWS 
WOORE 
CHERS 
CHERP 3 
ADDER! 
PADER 3 
DATER?: 
CWO 
CHDEPR 3s 
POCR! 
MISC! 


HOt 8 
Colrs 
UNTTa 


ROYUNTS 


RALLS 
RETRY 8 
PATALS 
MODES 
LUPSW8 
SSH! 


LHD! 
LS3 


UNTSK$ 


eLOC 
eOLK 
eOLK 
eOLK 
oOLK 
2 OLK 
eOLK 
e OL 
OL 
2 OLK 
oDLK 
eDLd 
e3LK 


ee 
cp tw 
i a oe 
nw 


«BLK 


e 9@CV OO 9D0R 000 8 


®& & 


2008 
1008 
482 
228 


Sheba ea hLDA A 
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pPROM CYLINDERS 

ITO CYLINDERS 

STOTAL SEEKS 

ITOTAL SEEK ERRORS 
PHORGS WRITTEN 

pWORDS READ 

ICHECK HOROD ERRORS 
IPERM CHECK WORD ERRORS 
YADDRESS ERRORS 
PPERMANENT ADDR ERR 
IDATA ERRORS 

ICHK WO AND OATA ERROR 
PPERM CHK WO AND DATA ERROR 
JPERMANENT DATA ERRORS 
MISC ERRORS 


PHEADER SWITCH 

ICMD STRING INTRP FLAG 
PCURRENY DISK ORIVE UNIT 
PAVATLABLE UNITS 

PRUN ALL MODE FLAG 

PROTRY TEST FLAG 

pRPATAL TEST RESULT FLAG 
POSRECAL, {eSCEK, 2sREAD, 
$LOOP ON TEST SwITCH 
ISEEK SWITCH 


JLAST HEADS3# 2,19,0R 28, 
PLAST SECTORe{}) 6 OR {2 


SawRITE 


a 6013 


a1 


08176 
WAL77 


buena 
“VA2A4 
AAZN2 
VA2ZARS 
WUA2A4 
“WUA2AS 
vVA2a6 
“UA2A7 
VA2LA 
“Wn2eii 
YA21L2 
“d213 
WA214 
wae 1s 
02216 


646217 


“A220 
“W221 


WA222 
“0223 
MB224 
04225 
BA226 
WA227 


MAIN 


eanoes 
aagaas 
AAAAZS 
A2ZBaAN7 
aganes 
@AABL?2 
BnAAAL7 
anga2a 
Ad4aASS 
AAADS7 
aaan4a 
QUAnH 4 
AAKRAGB 
YASGBE7 
QAALAA 
AAA177 
GAASL1S 
A®A212 
aaneis 
AAR377 
AAB1L74 
QQ0173 
2AL SGA 
VAA172 
YARASS 
GA74AD 
0174400 
AAANS4 
172004 
176042 
877662 
477677 
QEUASS 
@77666 


L777 Ce 
a eae ey 
fe 


: 
De Gikin 


ae ate 


C2cDRVSe1 

C58 K) 
CAcORVS92 

C73 7 
CiAaAORVSs§ 
Ciet i2 
C178 17 
C2as 2a 
Bos OR) 
C373 37 
Cant ay 
C543 54 
C6AE 60 
C673 67 
CLAGE 146 
C1773 177 
C2a3.3 243, 
C2423 212 
Geos 215 
C3771 377 
C4AAGUNTSK 42 
CLIAOBGUNTSK eo] 
Ci4an? 1480 
C20QH0UNTSK 
C4AKNUNTONSS 
C740n8 7400 
Ci74Hs 174n@ 
CYAKSUNTDNS2 
Ci7aks $7800 
Ci76K:r 1760n7¢ 
CSP 8 77662 
CSP: 177677 
CWRDS 64033 
CSP33 776686 
rine Ss #e{6, 
Naish! matey 
ees aera wt Oe 
Mao 
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a OO43 


01 
02 
0S 


. 84 


Q3 


06° 


a7 
a4 
89 
10 
11 
{2 
1S 
i4 
15 
16 
17 
10 
19 
26 
21 
e2 
29 
24 
23 
26 
27 
20 
29 
38 
ot 
32 


B62354 
80295 
0C2356 
002357 
C240 
Bn2al 
08262 
04243 
OM244 
@9245 
OO246 
00267 
Ba250 
Z0251 
0252 
00253 
ON254 
60255 
88256 
00237 
60200 
onect 
80262 
00203 
00264 
80208 
80060 


0207 


20278 
ChE7 4 
00272 
00273 
Q0274 
BO275 
20270 


> 

i 
2 
oe 


es | 
a“) C1 5 € 


my © 


t2 oT) D> 02 & 
EIPOCVOMVMOAC 


Ss Om 2 Ee 


e* 


SMAIN 


€90Cco00 
000082 
890000 
6c0000 
ooo0cd 
Ono009 
ONSCES 
1235450 
120456 
2n5000 
GGG208 
O8G5156 
800008 
O80059 
G0000S 
9680008 
OU5150 
O46059 
OG0000 
011749 
0126074 
OAS!L27 
@00147 
800090 
000000 
@05159 
@1dsagog 
oacoss 
0990008 
ggoosd 
cao0008 
OAGH8a 
O9CoGgs 
Onoda 
geooud 
G0008S 


a) 


TING? 
TIMER 
IOTAT3 
DAVOS 
GANGS 
SAVAE 
SAVOE 


RANODOMS 


eRAN? 


RELRANS 


CNIOC3 
LAST3 
LINCT? 
cece 
oCi 
HO 8 
CAt 
OAMS 
TORN 
UOP 8 
CcoP?3 
VARSYTS 
Hee D3 
ARSP3 
he 
OUPF 8 
CMONDS 
SHAK! 
EVOONG 
AZCNT8 
CUCNTS 
DACNYT3 
RHRETES 
DADATS 
CFLG8 
COCK: 


anoooeas 


125456 


123466. 


Gg 

NIOC @ 
PRGEND 
0 

0 

3) 

0 
PRGEND 
40033 
G 


UDUFPOUDUPF 
COUFPSOCBUFF 


VARe4 


VARO15, 


0 

0 
PRGEND 
14020 
g 


Gi 


EGIN 


wWoOacdeoaqQqgevvovoesoaonnaonn & 


( 
p@ ITOZ'S FOR 12,5MS ¢ THIS COMPUTER 3} 
912,045 TIMER 
PSTATUS AT INTERRUPT 
p8AVE ACZ,1,2 


ICURRENT RANDOM NUMBER 
RANDOM BASE NUMBER 


IPROGRAM END 

PO¥YTE POINTER 

PSTARTING SECTOR (POS) 
SECTOR COUNT 

pREAD 

IBEGINNING ADDRESS (VARIABLE) 
P'SAME 

JHOLOS TERMINATOR FLAG 

PUNIT GYTE POINTER 

BCMD 8SYRING DYTVE POINTER 
JVARIADLE DATA, SRY ADDRet 

} t : TABLE END 

, " " ENO MARKER 

IVAR POINTER 

PDATA BUPFER SRT ADOR CCONSTANT) 
STOP OF USABLE CORE 

pMAX SECTOR COUNT 


ICYLINOERS, (O)JEVEN, (15)00D 


PDATA ADDRESS (DISK ADOR TEST) 
PEND CYL FLAG 


PUNTT MASK 1400 OR 420 OR @ 

HEAD MACK 7400 OR 17402 OR 448 
pore eh oe 7420 CR $4289 
4 5A Aree ns Ges Poe ieey 


MAS 
on szcT0R TRANGEP SE 


=LO5= 


a Q@032 


Qi 
Q2 
“) 
4 
85 
ac 
7 


a8: 


a9 
1a 
i 
12 
15 


GAIL1 
oAS12 
Ob3S13 


OO314 


@AS15 
Q@43i16 
BAS17 
82323 
Qb324 
¥v2A322 
A2S23 
“0324 
GA3S25 
03326 
043527 
O853G 
OASS1{ 
02332 
CAS33 
OHS34 
02335 
08536 
UG337 
WAS4A 
OA344 
“WN342 
QA3463 
CU344 
VA345 
42346 
00347 
“435A 
WAS54 
00352 
02353 
04354 
003535 
02356 
02357 
QASGA 
WALO4 
YNS.52 
UVices 


O42564 


MAIN 


800577 
088078 
AAONSS 
Q81254 
Q01256 
AA3752 
093736 
QAASCIA 
843575 
Qd3074 
OAS5S54 
BAS714 
BASALA 
QASAd6 
@42737 
BA3762 
QAS244 
“3248 
BA23363 
9861816 
OA109B 
AN3A29 
aveocoa 
aanact2 
600726 
BA3434 
22647 
@82325 
HA21BS 
Qv2611i 
a82518 
AGB2253 
082223 
001265 
G051723 
Q82774 
GO1747 
aneaas 
AACTOL 
ABA7 295 
2A3377 
aipesa 
ane 


we tw 


NGS 


“2 
a Oo 


~ on 
eo 


oa 


ISET.2 
TRUP 3 
ICYLF 3 
TALL! 
IOLYi 
TSAC3 
TSTAC32 
IPDEC] 
ITACiLS 
T7243 
IMESS 4 
ICRLP 3 
ISRH! 
IGATM} 
THSS8 
TINPS 
IGEN? 
ICHKS 
TVAR3 
ICLRE$ 
ISET! 
ISM} 
TS7B8° 
INILS 
WAT? 
T,O0803 
IRDAT? 
IviDATS 
IGCS3 
IR2 
Iwe 
133 
IRC8 
IPSs 
ITRCDe 
TCO 
ISCNTS 
TCoLt 


SET.1 
INTERRUPT 
CYLF 
ALL 
OLY 
SAC 
STAC 
PDCC 
POCT 
2OCT 
MESS 
CRLF 
SR 
GATM 
H93 
INP 

G 

C 
VAR,@ 
CLRB 
SET 
SM 


S76 
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a 0818 


MAIN 


o00020 
encaet 
ocgdu”d 
EOG314 
BOGILS 
OCI! 
8G6910 
005517 
CO0820 
OAGI2S 
GAGge2 
COG6I3238 
GO0S5B4 
BOC3IA 
8AC332 
O80531 
666327 
980526 
O9G0a5 
QO000G4 
GG0939 


0863956 


0060397 
20039468 
882552 
606945 
0960347 
8063950 
QOGSId54 
@00554 
@Gos59s 
B0G6308 
BB6041 


026368 


TOXGe2L0 

Oxqaai 

~DOKPaAS3 
DOALIL@JOR OTALL 
OLYL{AaTSR OTOLY 
RANDAJSA @TRAN 
SAVACSJSR OTSac 
CETACAION OLSTAC 
FYPOECAICR GIPOEC 
TYPACUAISR CITACL 
TYPZIAISR O1TZ4 
MESSAGEAISR OINESS 
PCRLPRISR CICRLF 
THPUTSIGR OLINP 
CHZCKRAJGR GICHKK 
GENaJGR CIGEN 
GETPARQGJISR OINSS 
GETATHSISR OTGATM 
SEARCKGJSR OLSRH 
CLRRDUGOJGR OCICLARB 
SETPOIGR OLOT 
SMCHagJoR @ISM 
SETOaAJOR els7B 
INITEGISOR OFNIL 
POTATAINe OLPS 
RZEANSIJIR OTR 
WRITEAQISR OFW 
SEEKaAIOR O19 
RECALBJISR OIRC 
CKOtaJGR OCA 
HEADGRGJOR OLED 
INTHTSJISR OLWT 
TYPASCAJIR O44 


SETUBJSR OT8y 
eCOT 


$00 POLLOWING ROUTINE FOR ALL ROY UNITS 
POCLAY 12,09 

IGENERATS RANDOM W IN ACB 

pGAVE ACO,1,2 

PRESTORE ACO,1,2 

TYPE CAC!) IN DECIMAL 

WVYPC CACY) IN OCTAL 

ITYPE (ACL) IN OCTAL, SUPP LEAD @'t8g 
ITYPE FOLLOWING MESSAGE IN ASCII 
ITYPEZ CRoL? 

IGET A LINE OF INPUT 

pCHECK ALL OF OATA BUFFER 

IGONERATCG OATA BUFFER 

GET HEAD@OECTa& SECT FROM INPUT LINE 
IGET NAME GR # FROM INPUT LINE 
SSCARCH FOLLOWING TABLE FOR MATCH ON AC} 
ICLEAR READ BUFFER 

ISCT OISK PARAMETERS 

pSIZE MEMORY 

POCT TIME BASE 

PINTITIALIZE ERROR COUNTERS ETC, 
PPRINT STATUS 

DISK READ & CHECK DATA 
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246455 {255599 RSS MOVS 4,1 

BA4T5 2446502 oTA 1,UMSK JUNIT MASK 

Deer osu 7 TCRS] 

Cae OER eP A LO& €,LnwD Pio DOLSK CLE 

Core aes nN Guo wR POPES Ty Leo 27 

oes Ane: GR ie Ayig eee INOy Get fa 

ac aee ’ erica Poe 

ae OG ee Oe 

Coe: Fe ae Pins GW a p4{)TESTING UNIT & 

Peete Voges Gert 

Oy ta ee Oe Ve rive Be Sees 

Vere aah SNP B21 Pe Peal ce ose Fag 

ee ere tee ge Loe Fines 

CEGo2 Safes NO Ge ICLEAR DOANE 

eee: ee eae LU pa ere 

at ee ee eee Gia ey eee 

Dares Powe AGG Hye 

8456 243222 JMP 08,2 1G0 To IT j} 


-108- 


a 0015 


O1 
02 
a) 
04 
as 
0G 
07 
a3 
09 
1G 
{1 
12 
{5 
14 


00457 
00460 
OS404 
C8402 
0463 
00404 
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OTA LY, TIME 
DOAS 8,770 
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JMP eof 
DOAS 8,TTO 
INTEN 

TOZ TIME 
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@7 2625 8228173 LOA @,C1000 
28 02626 2615383 DOAP @,,DSKP 
a9 . 
{@ @@627 €24172 LOA 1,€2C60 PWAIY FOR SEEKING 
11 @4S350 0639433 DIA @,,0SKP JFLOP TO TURN ON 
12 ©0631 123485 AND 41,0,39NR 
{3 “ABS2 8428776 JMP .@2 
14 
15 84633 82220202 LDA @,Mi6, pWATT 20QM8 FOR 
16 40634 820315 OLYL2 JTHE SEEK @ YO ENO 
17 68635 1814304 INC @,0,82ZR 
10 @8636 888776 JMP .=2 
19 
22 880037 152402 SU0 2,2 
24 6064@ BOaLOn STA 2,RDYUNT SET ALL UNITS "NOT READY 
22 W404) 8221020 ,S27L18 LDA O,UNTINS,2 JsOECLECT UNITS Gad 
23 “426042 803053 DOC G,,DNSKP PAND CHECK EACH 
24 44643 860433 DIA @,,D0cKP FOR "DUR" 
25 “8648 624241 LDA £1,Ci@0 
26 08045 123405 AND {,0,SNR 
27 8AC46 OnB408 JMP ,SET2 PINOT READY 
26 4@647 82148223 LOA @,DRVS,2 PCROYUNT) DEFINES WHICH 
29 08650 424160 LOA 1,ROYUNT PUNITS ARE READY 
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32 
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34 00654 024024 LDA 4,C4 PEXIT APYER ALL UNITS 
35 ©0553 132444 SUCH 1,2,S52ZR 1 TESTED 
36 88656 000763 JMP SETI 
37 
38 ©9057 820160 LOA O,ROYUNT 
39 BU6GA 101004 ; MOV G@,@,S52ZR 
4a 09601 2302400 JMNP O,SRET 
44 08602 886524 PCRLFE 
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04 } CHCOCHCHTAHO HEH Ket edeKDedEDeeHeNeeseNEEHELeNHHY 
63 
G8 00670 054240 INTER!’ STA 3,5AavV3 
@7 OBO71 OnG31S AVAL 
@0 806072 660477 INTA 4 PWHO DIO IT??? 
@9 O8673 844424 CTA 1,58 
16 868074 639277 LOA 2,C039K 
{1 $0079 3432445 SUD® 1,2,5NR 
12 @0070 600422 JNP INT, 4 POISK PACK INTERRUPT 
$$ 08077 630823 LOA 2,C10 
14 88700 1392415 SUDW $,2,9NR 
{3 06761 800449 JMP ITT? ITTTI INTERRUPT 
16 @0702 B342¢46 LDA 3,CNIOC ISOMEOQNE ELSE 
17 860709 197000 ADD 1,38 
15 @60704 894401 STA 3,,¢h 
19 867085 O023200 NIOC @ HOEY ADDR ADDED DYNAMICALLY 
20 00700 000924 PERL? 
21 80787 226923 MESSAGE 
22 BO71G 004172 MOGS INTERRUPT FROM DEVICE 
25 OG711 624406 LOA £,98 
24 80712 690322 TYPZ4 
25 90713 688917 SETAC 
23 @9714 034248 LOA 3,9AV9 
27 @8715 B00:77 INTEN 
26 ©8716 €02900 JMP 00 
29 00717 888000 303 @ 
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of POISK PACK INTERRUPT 
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93 00720 200055 INT,48 DIAC 0,,0SKP STATUS 
34 00721 046233 STA O,ISTAT. FOR ALL TO USE 
$5 08722 030157 LDA 2,UNIT 
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38 
39 PMAIT POR INTERRUPT 
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G2 ITELETYPE INTERRUPT 
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@4 WA744 OGH2190 ITTY NIOC TTI FKNOCK DOWN THE TTI FLAG 
Q@5 88745 a20156 LOA O,CSIF pCSI FLAG (SA 485) 
@6 023746 101004 MOV 8,0,52ZR . 

@7 027467 622356 JMP OICSI YRETURN TO CSI 

@8 88752 828270 LOA @,CVOON yIF TwO COMPUTERS 
49 @4751 101905 MOV @,8,SNR ONLY PRINT OURING 
1A 60752 ano4aud JMP 04 PREAD OR WRITE 

11 84753 9020164 LOA O,MODE 

12 087354 {01225 MOVZR @,@,SNR 

13 “A755 202433 JMP ITVT.5 pA SEEK OR RECAL 
{4 WA756 806324 PCRL?F 

15 082757 0326324 PORLF 

16 827680 920157 LDA @,UNIT 

17 OH7G61 840433 STA @,SAVU 

16 A@A7G]2] B243454 LDA @,ALLRET PSAVE ALL RETURN 
19 @2763 0427432 STA @,SAVA 

2A BU704 020544 LOA @,POTea{ 

21 060765 e4un2} STA O,IDX4 

22 6A766 022221 ITT,1! LOA A,°IDX! PPRINT TABLE 

23 Y™A7G7 141485 MOV @,8,3NR 

24 A770 Bdn414 JMP ITT,4 PEND TABLE, 
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37 81605 2420157 STA @,UNIT 
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10 OL1606 CO0¢460 JHP O,f PKHEMORY FOO SMALL 
{1 21097 160409 NCG 0,0 ICASHEADCOCECTOR 
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G250G5 
@S100% 
BA0408 


B25e74 
234075 
@34450 
060342 
02426 


825101 
B8i11895 
BAv7798 


B251i1 
Oaa7ol 


@251139 
088797 


B2e5124 


890755 


@29129 
O22753 


925131 
gee0754 


PYSEK$ 


PTWHS3 


PT,i2 
PTWRS 


PYCWES 
PYCWP) 
PTAERS 
PTPAES 
PYDER? 


PTPDE3 


. STA 3G, PRET 


LOA 1,UNIT 
TYPZ4 
JMP OTRET 


LDA 1,SEKER,2 
STA 3,TRET 
TYPDEC 

JM? OTRET 


LDA 
LOA 
JMP 


1,SECKT,2 
2,SEEKT44,2 
PT.i ; 


LDA 
LDA 
STA 
JOR 
JMP 


1,WOSW,2 
2,WDGW44,2 
3, TRET 
°1.08D 
OTRET 


LOA 
LDA 
JMP 


1,HDSR,2 
PT ei 


LDA 
JMP 


1,CWER,2 
PS.1 


LDA 
IMP 


1,CWERP,2 
P3.i 


LOA 
JMP 


1,ADDER,2 
PSel 


1,PADER,2 
PS.4 


LDA 
JHP 


LDA 
JMP 


1,D0ATER,2 
PS.4 


-ll7- 


SPRINT. 


_ YPRINT 


PPRINT 


PRINT. 


PRINT 


PPRINT 


JPRINT 


JPRINT 


PPRINT 


JPRINT 


PPRINT 


( 
HEADER NUMBER 
# SEEK ERRORS 


# SEEKS 


WORDS WRITTEN 


WORDS READ 


CHECK WORD ERRORS 
PERM CHK WD ERRS 
ADDRESS ERRORS 
PERM ADOR ERRS 
DATA ERRORS 


PERM DATA ERRS 


a 0024 


a1 
22 
VR) 


Bil2esa 
at23s 
BL256 
01257 
Q1248 
B1i244 
“L262 
12438 
C1244 
a1245 
C1246 
61247 
e125a 
O1251 
1252 
41255 
AL1294 
@1255 


@1256 
AL2957 
B12Ga 
e120 
Q1262 
B1268 
a1264 


MAIN 


054310 
1824200 
8420157 
234340 
038157 
e21222 
@24,Gn 
123414 
Ya74aa@ 
Bansry 
AQasns 
ALG157 
220157 
a24024 
{22444 
280763 
aLAsyaA 
202312 


054420 
58294 
A5S@235 
A14235 
GAB777 
QA24A4 
AAABBS 


PD C-2 Gd 
2) Cw FO Gi 
c =~ Ci Sa GI 


2 “ 
=) 
~ ie 6 
Crt O-4 
d 
-) 


ALLS 


ALL 8 


OLY 


OLYRET3 


PEXCCUTE THE ROUTINE POINTED TO BY. 
}THE WORD FOLLOWING THE CALL, DO To 
YONCE FOR EACH ACTIVE UNIT 


STA 
SUS 
STA 
LOA 
LOA 


3,ALLRET 

8,2 

@,UNIT 

S,ALLRET - 
2,UNIT 
LOA 9,0RVS,2 
LOA 4,ROYUNT 
AND® 1,8,S8ZR 
JSR 0@,3$ 

JMP ,o4 

JMP ,¢] 

TSZ UNIT 

LDA @,UNIT 
LDA 1,C4 
SUBH 1,0,SZR 
JMP ALL,1 
TSZ ALLRET 
JMP OALLRET 


$00 IY FOR THIS UNIT 
HIGNORE RETURN#{,42 ROUTIS 


DELAY 12,5MS 
300 NOT USE ACB,1 


STA 
LDA 
STA 
092 
JMP 
JMP 
4) 


3,DLYRET 
2,TIME 
2,TIMER 
TIMER 
eel 


OOLYRET 


IPRINT STATUS 


we 
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a 8825 ,MAIN 


at 
2... | rADK POR OISK S8IzE 
63 
Q4 01274 054420 ,GODds CTA 3,FPDSRET 
25 61273 900324 PORLE | 
06 8127G 005323 NESSAGE 
Q7 @1277 084047 MSGGO "TYPE THE NUMDER OF DISK SURFACES " 
N90 O1300 GEO350 INPUT IWATY FOR INPUT 
89 21501 020257 UOP | IOYTE POINTER 
' 4A 01302 06394498 JuHP ,GSD3 B*CR" ONLY I3 ERROR 
11 @1305 0096526 COTATM IGET YHE NUMBER 
t2 @i3a6 105050 MOV @,3 
13 @130S5 22009285 SCARCH JIS NUMDER 2,12 OR 28 
14 81306 ov81322 HNUM ITABLE ADDRESS 
15 @1307 260435 JMP .G3D1 gNO |] 
16 @{910 O21007 FOS,2% LOA G,3HXmHNUM, 2 
17 @1311 O401713 STA O,L3 PLAST SECTOR 
{G6 O1312 221006 LOA @,HMX@HNUM,2 
19 @1343 240170 S74 O,LHO ILAST HEAOe4 
24 81344 Of4A12 LOA O,MS1sHNUM, 2PHEAD MASK 
24 81515 @40305 STA @,HMSK 
22 @1316 021015 LOA O,MS2eHNUM,279SECTOR MASK 
23 OL317 B460304 STA 0,SMSK 
24 01320 e02401 JMP OFDSRET 


25 O1521 820888 FOSRETs 2 


~119- 


A 8026 


ai 
02 
as 


®1322 
M1323 
Bis24 
01525 


@1526 
41327 
21358 


PLS31 
A133e2 
B1S833 


Q1584 
Wid35 
1556 


AL3S7 
Q1542 
B1S4) 


21342 
ALS43 
W1L344 


MAIN 


G42e0e2 
200818 
BAgC2A 
2SRS88 


GABAB2 
Baanwle 
2aaged 


400014 
ABKVANG 
BARBL4 


QPABGAB 
047 4028 
2174ua 


Aa7 SAM 
MASAO 
QA740B 


QA6323 
CA4444 
6UB7S1 


HNUMS 


HMX § 


SMX 


MSi3 


MS23 


eGSD1i3 


18, 
20, 


12, 
GC 
12. 


428 
7402 
17428 


7408 
S468 
7480 


MESSAGE 
MSG43 
JMP .GSD#} 


ICARTRIDGE 
y25i1 
p23i4 


CARTRIDGE 
y2Sii 
y23514 


PHEAO MASKS 


ISECTOR MASKS 


PERROR 
J NaQall 
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A 8027 


01 


Gp en 


ceooy en 


M1945 
Q1346 
O1347 
813950 
W139i 
81352 
B1355 
Q1954 
@1955 
B1356 


W1957 
81360 
@1301 
81362 


—6 818638 


O1364 
@13905 
01366 


@1567 
81374 
A1S71 
Q13572 
B1378 
B1974 
O19375 


#1376 


9 41377 


81402 
21401 


oMAIN 


192624 
1925322 
11084 
102406 
260270 
B2RI951 
W625498 
O42544 
e2n265 
2482564 


BHOSGL 
@58302 
113700 
219022 
B2416" 
123465 
00772 
950157 


BOGISG1 
G243908 
{257240 
B24172 
186407 
QBO87738 
048263 


B9095! 
Q@243504 
123709 
B2di7i 
{00437 
B0C764 
040251 


, 
} 
} 


RELODS 
RELEVE 


RELALLS 


REL.18 


REL .2% 


REL.33 


Rebesi 


i] 


‘ROR RASRSELE LALO EERE EOER ECE ERSESESSOCLALSLERLAELEE EY 


eo" 


DISK RELIAOILITY TEST 


@uwvenay 


DARE RRRRORSRRER RESO SER RREERERESEEELESLAEEEASE SE 2) 


SUDZR 0,0,3KP 
SUSZL 0,28 

MOV ©,0,3KP 
SUB 
STA @,EVOON 
LOA O,IRAN 
ITA G,OIRDAT 
STA O,OIWDAT 
LOA 


STA @,CA 


RAND 

LOA 2,UMSK 
ANDS 0,2. 
LOA 0,0RVS,2 
LOA 1,RDYUNT 
AND 1,0,3NR 
JMP RELL 
STA 2,UNTT 


RAND 

LOA 1,HMSK 
ANDS 1,2 

LOA &,LKnO 
SUBZG @,1,5B8N 
JHP REL 2 

STA 8,HD 


RAND 

LDA $,5MSK 
ANDS 1,6 

LOA 1,L8 
SUDZ0 O,1,SB8N 
JNP REL, 2 

STA G,StC 


RAND 
La: 


; 
ANDS 4} 


T-1 
Par 
> 


= ~ « 


FUSE 
PUSE 


ODD CYLINDERS 
EVEN CYLINDERS 
JUSE ALL CYLINDERS 


SET FOR RANDOM DATA 


MEM ADDR, CONST 


FGET RANDOM UNIT & 
PUNTT SIZE MASK 
PUNIT READY ? 


JNO, TRY AGAIN 


GET RANDOM HEAD # 
PHEAD SIZE MASK 
PHEAD # OK 2? 


HTO00 LARGE, TRY AGAIN 


IGET RANDOM STARTING SECTOR 
PGSECTOR SIZE MASK 


SECT #® OK ? 


§TOO LARGE, TRY AGAIN 
POST ENCE MW oe OF “SEC 
Pa SECTORS MASK 
DON'T ALLOw Q 

Sones Ae mace ayo 0 
a ee ied oe te _ a ne we PD 
FERS Sou 2 

PNG, TRY AGAIN 
Pete. i ee 

pA AO LR We eee 
Rip ™ Mw. em ae ae | 

‘ fee Se ue we + ioe 


=12i= 


a 08028 


Ai 


G1421 
81422 
M1423 
01424 
01425 
41426 
@1427 
Q1454a 
O@1431 
1432 
M1438 
Bi434 
41435 
01436 
@1437 
41443 
ALYS4y 
41442 


04443 
414444 
A{44a5 
A{4a6 
01447 
AY<5¢ 
“L454 
41452 
“14653 
W1454 
“1455 
01456 
61457 
B14G60 
0146} 
41462 


MAIN 


214237 
BARS 
AANG2AA 
010242 
29240 
AR4174 
122434 
BAA774 
1422423 
a4a2eag 
Qivedt 
ven2edi 
0246172 
1224j,4 
QHAA7TE2 
820237 
LAL224 
Q207435 


“A6561 
24216 
123422 
024272 
L25au5 
AAgand 
LAL2e2e 
1251ua 
yariaa 
vV24213 
122432 
aAva7GEs 
ASALS7 
@25285}3 
B45045 
41051 


REL,S! 


REL 6% 


REL.73 


D3Z 
JMP 
JM? REL.S 

ISZ SAVi | 
LOA O,SAV1E 
LOA 1,L8 
SUBZ# 1,0,S2R 
JMP 
SUB 
ST4 @,SAVi 
132 
LDA 
LOA 
SUB& 1,8@,S8ZR 
JMP REL,S 

LDA @,S5AVO 
MOVZR @,@,SZR 
JMP REL,4 


1,C377 
1,2 
1,EVOON 
1,1,SNR 
JMP REL,7 
MOVZR 0,82 
MOVL tal 
MOVL @,20 

LOA 1,C2038, 
SUBZ# 1,8,S82C 
JMP REL,6 
LOA 2,UNI7 
LDA 1,CYLT,2 
STA 1,CYLF,2 
STA @,CYLT,2 


pee 
Jaw 
Jee 


SEEK 


(2) C> G® 2» 
Wn rt ~~ OC 
m™m w 8 


q. 

‘NM? 05 
= 

t 

t 


SECTOR COUNT OK 
CURRENT SECT} 


PHEAD OVERFLOW ? 


}NO, COUNT ANOTHER SECT 


VYES, SELECT NEXT HEAD 


JEND CYLINDER ? 


JNO, COUNT ANOTHER SECTOR 
IYES, DONC IF THIS 18 
THE LAST SECTOR 

) GET ANOTHER RAND # 


GET RANDOM CYLINOER & 


JUSE ALL CYLINDERS 
ICYL & RIGHT UNE 
g000 BIT TO (C) 
CYL &, OOO OR EVEN 
yIS CYL # « 22838, 


NO, TRY ANOTHER @ 


P'FOUgUeROMN 
NEW "TO" 
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a 6029. MAIN 


ai ‘ 

02 joe 

nN) Joe WRITE OFSK 

Q4 jee 

Q5 

@6 @1470 192GO08 ADC 0,@ ; 

@7 O1471 a4aycs STA 0,HSW 

03 01472 020243 LOA @,RANDOM SSAVE GEGINNING OF 

09 1473 G840245 STA O,RELRAN SRANOOM NUMBERS 

{G6 01474 829245 LOA @,RELRAN PRESET RANDOM NUMBERS 
11 61475 949243 STA @,RANDOM yFOR LOOPING 

12 @1467G 606347 WRITE IGEN DATA & WRITE 

{3 014677 026354 CKOW pERROR, CHECK SWITCHES 
14 @15@6 0048774 JMP ,24 JLOOP ON [TF 

15 

{6 @LYSAL 824270 LOA @,EVOON IPF TWO COMPUTERS, SEEK AGAIN 
17 815902 103005 MOV @,8,3NR 

168 AL5A3 Ooaa4as JMP RED PONLY ONE 

19 €13584 182063 ADC 2,2 

2A 61505 n4ay5s STA @,HSW 

21 41526 @ac550 SEEK PSEEK SAME CYLINOER 

22 @1587 O4osseé CKSw PERROR, CHECK SWITCH CONTROL 
23 @13512 888776 JMP 02 PLQOP ON [T 

24 

23 jew 

2G jee READ OISK 

27 Jee 

28 

29 @15¢1 1420909 REO! ADC 6,2 

59 ALS12 40155 STA 0,HSW 

St 01543 820245: LOA @,RELRAN ISET RAN # GEN FOR THE 
S2 421514 8492438 STA @,RANDOM FREAD CHECK 

93 O@15135 @A0346 READ gROAD AND CHECK DATA 
34 B1596 22069056 CKSw FERROR, CHECK SwITCHES 
35 61547 0888774 JMP a4 SLOOP ON [IT 

36 

37° JCHECK ENDING FOR TERMINATION 

30 | 

39 615280 aneaniG ; LDA @,RALL 

4639 8641521 41979809 MOY 0,0@,5NR 

4! 095922 feeoss JMP RELL IMGRE RELIABILITY 

Oo. eC haa Pod CRALEL PRUN ALL smite 

Oo. VOSS sae Jie ee $00 532 LGSrS8 ONLY 

Oe Se noo oe Poni? 

Co ee OS ee PCG eee 

ar BRS kak REG pRRASS 

“7 


rao. 


€ 
C. 
s 
+4 


~123- 


8038 


O15SAa 
“i534 
4€1532 
¥1533 
01534 
41835 
¥1536 
¥1537 
@154éa 
01544 
01542 
Q1543 
@1544 
@1545 
01546 


04547 
2155a 
01554 
a1552 
01553 
01554 
41555 
61556 


MAIN 


20173 
242444 
ASALG4 
a3a414 
A5u412 
Binds 
222412 
101825 
aanGia 
242275 
QA6314 
001635 
Ban774 
aanaae 
gouann 


AYvL547 
AN4134 
044135 
AUAEL4A 
AAdL42 
244147 
WAa3377 
BAABAA 


RUNALL 8 


R13 


CRALL8 
PADD! 


Ait 


COOUEHTEK aN Meee NTOUECUT HUH EKO ever eeNHEeNeNNE TES 
eorcces RUN ALL TESTS eveveuw 
TARO RRRRES SEER E SESE ECS ECESECEOCESSEEEAEE SE COLE RAS 


PRUN ALL OISK ADORESS PATTERNS 
ITREN RUN RANDOM EXERCISER FOR A 
PWHILE, THEN REPEAT 


LOA 
STA 
STA 
LDA 
STA 
182 
LDA 
MOV 


0,Ci1a2a0 
2,CRALL 
Q2,RALL 
2,Ateo{ 
2,PA00 
PADD 
0,°P ADO 
2,0,3NR 
JMP RELALL 
STA @,OADAT 
DOALL 

DAT, | 

JMP R,1 


$00 OISK ADORESS 


STEST FOR EACH PATTERN 


-~124- 


aA OOS] 
Gf 

a2 015957 
05 81569 
646 81501 
65 ai562 
06 

Q7 @L663 
Q@0 @1864 
09 

10 81565 
41 @:566 
12 

{3 @{967 
14 21572 
15 

10 O1571 
17 081572 
19 

19 81873 
20 1574 
2i 081675 
22 41576 
23 61677 
24 @10G68 
25 #1664 
26 @1G02 
27 @16083 
20 @1604 
29 @1069 
39 81606 
31 21607 
S2 10430 
33 O104! 
34 81642 
35 BL6i3 
36 #61644 


MAIN 


020776 DATRE 
M24244 
044243 
860412 


@20706 DAT{L! 
226410 


Q20703 DATS! 
G28406 


O20703 OATP3 
000404 


028762 DATFis 


208402 


Q2a761 DATE! 


042279 
B00212 
026324 
920523 
OA47HA 
600324 
806323 
284726 
gdSG16 
0998777 
GOOLLTA 
OCGdi4 DATS 
GOL1o15 
G8BG824 
086328 
604444 
Q28778 


LDA 0,445 
LDA %,,RAN 
OTA 1,RANDOM 
JMP DATFOS! 


LDA D,ALst 
JMP DATFOes 


LOA 6,A1 
JMP DATFGe{ 


LOA @,A1%2 
JMP DAT?#@e{ 


LDA ©,A4¢3 
JHP DATFOe4 


LDA @,A¢o4 
STA @,DADAT 
NIOC TTY 
PCRLF 
MEQSAGE 
MOG74 
PCRALF 
MESSAGE 
MSG72 
SXtPON FTI 
JM? P| 
NIOC TTI 
DOALL 

DAT, 

PCORLF 
MESSAGE 
MSG41 

JMP DAT 


1D75K ADDR TEST 
#9ET RANDOM BASE 
) NUMBER 


I"SET SW4 FOR INTERCHANGE sage 


P"STRIKE ANY KEY TO CONTINUE?! 


200 I7 ONCE FOR EACH 
PREADY DISK 


"PASS 


~125- 


a 8232 


: Le 
YN pewn 


C2 


mw 
re 


MAIN 


a54525 
474477 
024172 
e2nsed 
137404 
oaadas 
126004 
p2a5ei 
244516 
n4a454 
020247 
240254 
22275 
242348 
W42544 
Q20248 
“40541 


022519 
049243 
{a24dug 
@4H056 
440637 
1920n9 
Q@40155 
@G0354 
246354 
298776 


93a157 
B214adi 
0440465 
Oyeaty 


OAT,!3 


DAT,@&8 


DAT, 13 


( 
‘RE RRRRRRERRBRER ERR R SRE ERE RE RECS SERESSRERARAEA SE 


woevoor DISK ADORESS TEST evunwew 
RA ACIALAERIATEEEAAEELELESETTLALELITTLTETITTITiit 


WRITE THE ENTIRE OISK, THEN READ, 
DATA PATTERN IN (DADAT), 
OISK DRIVE IN CUNIT), 


STA 3,O0ARET 

READS § PIF SwSe{, READ ONLY 
LDA 1,C02000 

LDA @,0R0 

AND 1,35,SZR 

JMP ,%3 

AOC 1,1 

LOA @,0wWwT 

STA 1,RFLG IR/W FLAG 

STA O,D0ATRW SWRITE FIRST 

LDA OD,LAST 

STA @,CA IBUPFER ADDRESS 

LOA @,0ADAT 

STA @,9IRDAT JOEFINE OATA 

STA @,OIWDAT PATTERN 

LDA @,RANDOM 

STA @,DARAN ISAVE RANDOM START 
LOA @,D0ARAN PRESET RANOOM FOR 
STA O,RANDOM PRECYCLE 

STA @,FLOY PRESET FLOATING @&i 
STA @,FLOZ PPATTERNS 

ADC 0,2 

STA @,HSW SET HEADER SWITCH 
RECAL PRECALIBRATE ORIVE 
CKSW PERROR, CHECK SWITCHES 
JMP ,e2 }LQOP ON ERROR 

LOA 2,UNIT SEEK NEw CYLINOER 
LDA @,CYLT,2 570 3 FROM 

STA @,CYLF,2 

pon C¥L Te? Joel a TC 

INC Ok 

bok Tete, 

we Uh pe gee 

Cie on ae Pes —s aaa 
Se Apes 

Gown 

eens Pea ge Sr. (St a 
Jere’ a eee puGer’ CN VMEAR Oe 

wed fd ang, Wee QT ate A 
VER © pha FUSCA Yt 

ee “epee ee 

ores baie ; ; 

Sia wpe FOGE “Th Bok Sore 
STA @8,CSC 
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a 00338 
4 

62 41674 
03 01673 
64 81676 
65 @1677 
O©6 017034 
87 @1701 
G0 81702 
69 @1703 
1@ A1764 
11 637483 
$2 01706 
{3 61707 
14 @1719 
13 @1741 
160 81712 
17 O17143 
16 01714 
19 81715 


24 81716 
22 @1747 
23 01722 
24 01724 
253 01722 
26 @1725 
27 61724 
25 61725 
29 L726 
30 61727 
34 81750 
32 B1791 
33 01732 
34 01738 
353 @1736 
30 @1735 
37 81736 
33 01737 
39 81742 
49 OUY7 41 
“£4 31742 
uly ao 
CL7e4 
wet Jao 


2% HOE 
eee ee 


arm 
C3 & CI Pro 


fe &j 


eo MAIN 


182009 
a4o105 
G2neA4s 
Q402045 
B20245 
O40049 
CaO947 
QACI54 
9GB774 
8292706 
101004 
B407<} 
OA443? 
40254 
a44259 
BA4LAG4 
0502592 
0887357 


@18425 
QQndns 
M2624 
@46704 
O88714 
000477 
224035 
147404 
GQDAK7 
e24i7e2 


107409 


Ba2dit 
924244 
B44243 
OH2400 
MOCI2G 
GH082a9 
284036 
663077 
800777 


ANA ANN 


DAT.23 


DATRWS 


DAT.3S3 


DAT, 43 


DAT,3S8 


DARETS 
25LG1 
wud 
Oey 


ee ee Sats 
[Oe io} 


ADC 
STA 
LDA 
STA 


6,2 

O, ROW 
@,RANDOM 
O,RZELRAN 
LOA O,RELRAN 
STA @,RANDOM 
WRITE 

CKSW 
JuPp 
LOA 
HOV 
JMP 
JOR 
STA 
OTA 
JSR 
STA 
JMP 


224 
Q,CFLG 
0,0,52R 
DAT. 1 
SCNT 
0,3EC 
1,HD 
SCNT 
2,5C 
OAT,.2 


152 
JMP 
LOA 


RFLG 
DAT,4 
0,ORO 
STA @,D0ATRW 
IMP DAT, @ 
READS @ 

LDA 1,C4K 
AND 0,1,32ZR 
JMP DAT,5 
LOA 1,C2008 
ANO 0,4,5NR 
JNP ODARET 
LDA 1,,RAN 
STA £,RANOOM 
JMP ODARET 
PCRLF 
MESSAGE 
MSG6B6 

HALT 
IMP 
4 


fae) 
U 


coe 


WRITE 


eel 
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i] 
SCY THE HEADER SWITCH 


POAVE RAN #& POSITION 
SIN CASE OF SCOPE LOOP 
RESTORE RANDOM & 

WFOR SCOPE LOOP 

FREAD OR WRITE 

ERROR, CHECK SWITCHES 
SLOOP ON ERROR 

PEND CYL NOW ? 


SYES =© SEEK AGAIN 
ADVANCE DISK ADDRESS 
PUPDATE SECTOR AND 
PREAD, 

BLGOK AHEAD 

SET NEW SECTOR COUNT 


JOONE WRITE & READ 
SET TO READ MODE 


bIF SW4a{ BREAD FOR 
POISK INTERCHANGE 


SIF SWS5at RESET 
yRANOOM PATTERN 
PEXIT 
PRANOOM INITIAL 
ISTART 


I" INTERCHANGE OISK" 


a 883 


Q1 


81747 
®1752 
¥1751 
V1752 
91753 


01754 
@1755 
@1756 
@1757 
41762 
O1761 
A1762 
A1763 


01764 
01765 
Wi7G66 
41767 
B1772 
01771 
®1772 
B1773 
Q1774 
01775 
01776 
01777 
022828 


4. 


MAIN 


054432 
A20503 
242427 
Aeneds! 
824255 


121402 
@SUi171 
112445 
gandus 
0144620 
WOa773 
23B50B 
aa2aie 


14,000 
125422 
A3H170 
{32444 
aaa77a 
a1n276 
34606 
asasan 
172428 
151400 
aa2de4 


Q@@2020 SCRET! 


2AG888 


SCNT! 


SC,1! 


SC.2! 


Sc,3! 


WORKS 


MOVE BEGINNING SECTOR ANDO HEAD ADORESS 
FORWARD BY THE NUMBER OF SECTORS IN (CSC). 
IF END CYLINDER SET "CFLG", 


EXIT «= 


AC@s NEW SECTOR START 


ACiS NEW HEAD START 
AC2e SECTOR COUNT 


3,S5CRET 
@,CSC 
@, WORK 
@,SEC 
1,HD 


8,8 
2,8 
@,2,SNR 
SC,3 
WORK 
SC.1 
2,CSC 
OSCRET 


2,8 

1,1 
2,LHO 
1,2,SZR 
SC,.2 


CURRENT BEGINNING SECTOR 
CURRENT BEGINNING HEAD 


PSECT eo! 
ICHECK FOR SECTOR OVERFLOW 


FOVERFLOW 
JOONE ? 
5NO 


VYES, EXIT 


ISECTaQ 
THEAOS1 


HEAD OVERFLOW 2? 
INO 


YES, END CYLINDER 
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~~ 0035 MAIN 


' Bf { 
a2 } ADB BR BRBRERERRALE DERE EALEREOLOSEORREECRRRALRELEREARAR ET 
a3 § events COMMAND STRING INTERPRETER evnwe 
O4 j RE RRRERERR EARS ERE RERSER ERASER EREREERESESARAERAARAEKERAEERAE DT 
@5 
86 GC? COMHAND STRING PARAMETERS 
@7 PUNTT SELECT 
26 82001 80363823 QUEST3 MESSAGE 
@9 @2002 a04444 MSG438 } eRe 
142 B8ROOS 102520 CMDST3 SuUnZL 2,2 ISET THE CSI FLAG 
{i 824694 @4n156 STA @,CSIF 
{2 @2025 acaeiaA NIOC TTY ICLEAR YTI FLAG 
13 B26 AGA2Z3S NTOC ,OSKP ICLEAR OISK GARBAGE 
14 82007 906324 PCRLF 
15 @2091a @26523 MESSAGE 
16 @2H11 894240 M3G17 PUUNTT: 

17 BA2G12 B2A635380 INPUT pACCEPT INPUT 

18 ®2613 88938257 USP 

19 62944 an0447 JMNP CMD,2 SAME AS LAST TIME 
2A 82615 1892408 SUD 0,2 

21 A2AL6 240468 STA @,RDYUNT gCLEAR ALL UNITS 
22 62017 806326 GEYATM 

23 B82BER 125084 MOV 1,1,S2ZR PACBaGH ACL SBNAME 

24 @2n21 228760 JMP QUEST PNAMES NOT LEGAL 
25 Y2H22 B24R24 LDA 1,C4 

26 62023 122432 S$U0Z8 1,8,82C 

27 22024 @22755 JMP GUEST GUNITT ars 

23 22025 048137 STA @,UNIT 

29 02026 1201008 MOV @,@,SNC 

3A 82027 822752 JMP QUEST IMORE LEFT, ERROR 
SL B20A38 240403 . JMP CMO,2 

32. Ce 

33 IOATA SELECT 

34 

35 82031 8806323 MESSAGE 

SG M2032 BO4444 MSG43 } =?e 

37 2933S OH6324 CMD,2t PCRLE 

38 02034 026323 MESSAGE 

39 82035 ansada ; MSGiYC P" DATA " 

4% @2036 @n63536 INPUT PACCEPT INPUT 

44 62937 @06057 UBP 

Soo Chae Ce SeeT J? ccs SAME AS. LAST TSSe 
oe SOE Soe SLT AT 

Cie ee Oa MOV $,4,SNR 

toe oH. bee Pais Cael Oe ea [eed ei ee seh 

Oe oe + ee oo ka ce Por een de te ae ee 
fa oe) cane ae JuP CMD, 2n2 INST FOURS 

mo ee ee eee any bik hp ONT gt ag 2 

Die iy Yo ieee ee Sg 

Si Pie! Qeoces ota $,ET8Ch4 

ee ae ee ee Ri ee ee 

Oe Et Eee Poe Gee Ee pio, es Mae ae te 2 
oa Va ‘ e peo ae Powe) eon un eben 
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A 8036 


@2 02055 
@3 020856 
@4 22057 
95 82a6a 
@G 8200} 
@7 “V2nG2 
"98 822063 
G69 Y20604 
1@ 022065 
{i @2e636 
12 @22G7 
13 422070 
14 “2e71 
15 @22072 
16 82073 
17 62074 
16 02075 
19 02076 
280 2877 


22 421089 
23 “21a 
24 “U21A2 
25 #2198 
26 “v2iad 


MAIN 


M24201 
044028 
242%27 
024253 
125804 
Q@AKB4E16 
MN6926 
{2524 
GANT 44 
842220 
1@1aee2 
ZAACLA 
A20262 
224320 
122414 
620767 
@AG6Se24 
SAK6S2S 
09426} 


“222028 
Q@4A263 
A2ZASSS 
642343 
A&2344 


@H6S524 
AAGS23 
an425a 
OA063832 
DAB2OV 
CB040) 
063710 
AABEO7 
LA20ua 
“46455 


CHO,S! 


CMD, 43 


CmMO,53 


GCSt 


GCS.13 


Coexd 


LDA 
STA 
STA 
LOA 
MOV 
JMP CMD,5 
GETATM 

MOV 
JIMP 
STA 
MOV 
JMP 
LDA 
LOA 


ch0,5 


i,VARST 
1,10x@ 
@,9IDxXa 
1,TERM 
1,1,5ZR 


1,1,5ZR 
CMD,2°2 
@,O10xX2 
@,4,82C 


@,VAREO 
1,T0xa 


PNAMES NOT ALLOWED © 


SU8&% 1,8,S2R 


JMP CMD,4 
PCRLF 
MESSAGE 
MSG20 


LDA 
STA 
LDA 
STA 
STA 


B®, IDX 
A,VARSP 
@,IVAR 
4,@IRDAT 
@,OIWDAT 


IGET COMMAND STRING 


PCRLF 
MESSAGE 
M3Gi9 
INPUT 
CSAP 

JMP ,o} 
SKPO2 TTI 
JMP CHDST 
ADC 0,8 
STA 3,HSW 


era fl ate 


bela cod iy Bere es Cee ve 


P"COMMAND STRING? " 
YACCEPY INPUT 

3CMD STR BYTE POINTER 
PSAME AS BEFORE 


PINTERRUPT CMD STRING 


PLINCTSBYTE POINTER 


PNAME IN ACY 
mNOQT FOUND 


Ke 


me 


PCoMeaAHO 
bow Ge 


marr om 
Oi Narvy 
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A 0037 


ai 
02 


02127 
02139 
02151 
M2192 
B2138 
B2154 
B2LS5 
@2196 
02137 
02140 
B2141 
C2142 


@2148 
B2144 
02145 
02146 
82147 
®2159@ 
G2151 
B2152 
62153 
M2154 
82155 


MAIN 


{M1902 RE 


O0G0774 
606027 
920245 
40248 
880346 
0390554 
BGu774 
820256 
121004 
41642 
048751 


1A1eee 
DHB709 
800927 
W2N243 
040245 
20245 
B4n24S 
040347 
anoSs4 
QAG774 
26A762 


RELS 


WT 


FREAD COMMANDO 


MOV 0,0,82C 
JMP COER 
GETPAR 

LO& @,RELRAN 
OTA @,RANDOM 
READ 
ck ow 
Jie 
LDA 
MOV 
JMP 
JMP 


oe 
2,7ERM 
@,0,S5ZR 
CMOS? 
GCS,1 


PWRITE COMMAND 
MOV @,0,82°¢ 
JMP CSER 
GETPAR 

LOA @,RANDOM 
STA @,RELRAN 
LDA @,RELRAN 
STA @,RANDOM 
WRITE 

CKSW 

JMP ,ad 

JMP REG 
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ICR TERMINATOR ILLEGAL 
GET R/W PARAMETERS 
ISET RAN # BEGIN 


JREAD AND CHECK DATA 
FERROR, LOOK AT 8WITCHES 
}LOOP ON ERROR 


PALL DONE 
IGET ANOTHER COMMAND 


PCR TERMINATOR ILLEGAL 
GET R/W PARAMETERS 

SAVE BEGIN OF RANOOM 
PNUMDERS IN CASE OF LOOP 
PRESET RAN & BEGINNING IN 
THE SCOPE LOOP 

IGENERATE DATA AND WRITE 
ERROR, CHECK SWITCHES 
LOOP ON ERROR 


A @838 
@i 

a2 

a3 

@4 02156 
@5 #2357 
@6 42162 
Q7 wero, 
Q@3 #2162 
@9 @2163 
1@ A2164 
11 ¥2165 
12 62166 
13 A2167 
14 82178 
{5 @2173 
16 22172 
17 ®2173 
18 82174 


Pe 
mm. Gt 
id 


is 38 


Ch SBA fe ff Pr. OA 
Cd 3 
fo 
La.) 


WMAIN 


{Mi1@n2 Ske 
QAAAZ SES 
886326 
{52562 
082256 
125704 
VAA7 4A 
0328157 
025053 
“45045 
Qd{ns4 
626354 
2AGS3SS4 
AAG776 
A007 43 


122566 
a4aeseé 
BAGS54 
BA6554 
@AN776 
BaB73SS 


RCL! 


Yen2esa 
940259 
ia2uua 
0420155 
WAB7TAG 


LUPt 


1a1002 DLAY3 


OEEK COMMANDO 


MOV @,8,$82C 
JMP CSER 
GETATM 

SUBCL 2,2 
STA 2,TERM 
MOV 1,1,S5ZR 
JMP CSER 

LOA 2,UNIT 
LOA 4,CYLT,2 
STA {,CYLF,2 
STA @,CYLT,2 
SEEK 

CKSwW 

JMP ,e#2 

JMP REY 


PRECALIBRATE 


SUBCL @,2 
STA @,TERM 
RECAL 

CKSw 

JMP ,e#2 
JMP REY 


}LOOP 


LOA 
STA 
ADC 
STA 
JMP 


0,CS8P 
O,LINCT 
G,@ 
@,HSW 
GCS,1 


BOELAY 


JMP CSER 
GETATM 


Mo ‘4 
* eo 


yCR TERMINATOR ILLEGAL 


IGET CYL # IN 


AC@ 


SNAMES ILLEGAL 


70 @ CYL #8 


$70 BECOMES FROM 


}SET NEW TO 
$00 THE SEEK 
BERROR, LOOK 


AT SWITCHES 


»LOQP ON ERROR 


SAVE (C), 18 
PRECALIBRATE 

PERROR, CHECK 
FLOOP ON ERRO 


PRESET THE COMMAND STRING 


tBYTE POINTER 
SET THE HEAD 


IGET DELAY & 


-132- 


TERM 


SWITCHES 


R 


ER FLAG 


a 0039. ,MAIN 


C2229 
02224 
02225 
@2226 
82227 
02230 
82231 
022382 
B2239 
M2234 
82255 
02236 
02237 
42248 
O2241 
02242 
B2245 
2244 
82245 
02246 
2247 
H2259 
82251 
B2252 


854274 
102482 
BLE164 
BSALS7 
a2{o2d 
632358 
G20217 
@01I953 
O21a54 
044045 
1220e0 
AS10514 
020232 
Becgalt 
@22274 
A29a32 
LA7 405 
282352 
124009 
0934225 
{67482 
197444 
202352 
AGASSS 


RECL2 


( 
ARR RARRBRRERE RE RE RERE ERE RECS RESERAERESESERAEE RE 


ecerd OISK HANOLER SUBROUTINES eneew 


CPAKRAE HONOR eee Hee wee eHeHHEewee 


PRECALIBRATE 
PRETURNSY FATAL ERROR 
IRETURN®3 NORMAL 


STA S,RWRET 
SUB @,@ 

STA O0,MODE 

LDA 2,UNIT 

LOA @,UNTINS,2 
DOCC 6, .DSKP 
LDA @,C1408 


SET THE PROGRAM MODE 


SELECT UNIT 


DOAP @,,D0SKP PRECAL 

LDA O,CYLT,2 

STA @,CYLF,2 }TO & PROM 

ADC 0,2 

STA @,CYLT,2 

LOA @,M250, 95 SECOND TIMER 
JSR OWAT PWAITING FOR INTERRUPT 
JMP ORWRET STIMEOUTI II | 

LOA 1,UNTON,2 PRECAL INT, RETURN 
AND ©,1,SNR 

PSTAT JNO DONE STATUS 
COM {1,1 

LOA 3,CSP4 3177677 

ANO 3,1 

AND @,1,SZR 

PSTAT BAD STATUS 

JMP GENRET 
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A O648 
Oi 
@2 
a3 


6 82258 
Q@7 A2254 
Q0 82255 
@9 82256 
1A 82237 
11 82268 
{2 #2261 
13 42262 
14 82263 
15 22264 
16 @2265 
17 W2266 
18 82267 
19 02278 
28 22273 


22 82272 
25 02273 
24 02274 
25 02275 
26 62276 
27 @2277 
26 42348 
29 M25a} 
34 22302 


S2 42308 
3S ¥25a04 
34 02385 
95 U2506 


MAIN 


054274 
122322 
48164 
430157 
021926 
8632338 
A21aSt 
@24173 
1252048 
@6135595 
AL1A61 
220462 
O118535 
826364 
“UA2274 


M2582 
1474135 
200407 
124929 
O84225 
1674602 
14744 
B2N4R2 
ABASAS 


024205 
127404 
aiia63 
882352 


SE.Lt 


SOCEK SUBROUTINE 


PRETURNSS NORMAL 
PRETURNSL FATAL ERROR. 


BTA 3,RWRET 
SUBZL @,2 
STA O,MODE 
LOA 2,UNIT 


LDA @,UNTINS,2 


DOCC @,,NSKP 
LOA O,CYLT,2 
LDA 1,Ci1a02a 
£00 1,¢@ 

DOAP @,,0SKP 
ISZ SECKTs4,2 
JMP ,%2 

1$Z SEEKT,2 
INTWT 

JMP @RWRET 


LOA 1,UNTON,2 
AND& H,1,5NR 

JMP SE. 

COM 
LDA S,CSP4 
AND 
AND 
JMP 
JMP 


9,1,5ZR 
SE el 
GENRET 
LDA 1,C40 
AND @,1,52ZR 
SZ SEKER,2 
PSTAT 


SET THE PROGRAM MODE 


SELECT UNIT 
CYL & 


SEEK} | 
COUNT SEEKS 


JOOUBLE PRES, 
PWATT 
STIMEOQUTI IL 


INTERRUPT RETURN AC25UNIT 4 


pACQO a STATUS 


PIMPROPER OONE STATUS 


1177677 


PWRONG STATUS 


ISEEK ERR 27? 


SCOUNT SEEK ERRORS 
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FOR INTERRUPT 


A B04) 


02307 
B2914 
G25ti 
Besie2 
12 2513 
ti @231¢ 
$2 #2315 
13 42316 
14 82317 
15 22322 
16 62524 
17 02322 
18 462323 
19 @2324 
82325 
21 02326 
02527 
02538 
a23St 
B2582 


B2533 
02554 
62395 
82530 
S{ 02337 
" 02340 
92541 
02342 
02543 
C2544 
02945 
22546 


S MAIN 


BA2326 
054274 
020776 
H40307 
G20475 
49164 
{02080 
W40271 
040272 
102486 
B46AL1GS 
20252 
B4G3AG 
YAGSSS 
“COUAB 
Q86095 
O20174 
MC1193 
@80500 
8A22764 


LAL119 
anas7s 
024227 
107694 
gaec72 
o240ed 
187404 
goud7} 
001433 
024252 
125960 
Q54204 
167000 
{25409 
125¢09 
Leceks 


OR BS A 
Cotss? 


eWRITE! 


WOATAS 


tmHRYITE SUBROUTINE 
NORMAL 
PATAL ERROR 


PRETURNSS, 
SRETURNS], 


WDOATAS4 

STA 3,RWRET 
LDA 
STA 
LDA 
STA 
ADC 
STA 
STA O,CWCNT 
5u8 
STA O,FATAL 
LOA 
STA 
GEN 
a 
SETP 
LOA @,C46a 
OOAS @,,0SKP 
INTWT 

JMP @RWRET 


@,RLUP 


MOVL& &@,8,SNC 
JMP RE,f 

LDA 1,CSP3 
AND 0,1,92R 
JMP REI 

LOA 1{,Ci@ 
0,1,382R 
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O, WRITE) 


PRETRY ADDRESS 


SET THE RETRY ADDRESS 


I8ET THE PROGRAM MOOE 


SCLEAR FATAL FLAG 
yH SECTORS TO XFER 


PADDR OF OATA GEN ROUT 
SET PARAMETERS 


IWRITE 
IWATT FOR INTERRUPT 
ITIMEQUY 


INTERRUPT RETURN 
INO R/W DONE FLAG 
1077666 


SFATAL STATUS 


TADDRESS ERROR 
}READ MEM ADOR 
ISECTOR COUNT 
yWORD COUNT 
ISTARTING ADORESS 


PADOR@KCS SHOULD EGUAL 
PURE ENSING EOOS eos 


ERROR 


a 8642 


@1 


B2554 
82355 
N2356 
82357 
423560 
B2331 
M2362 
W2353 
62564 
Q2005 
62306 
@25G7 
22370 
Q2371 
02372 
02379 
02374 
O2575 


@2376 
B2577 
@24na 
Q2403 
A2402 
W240 
W244 
W2405 
02476 
82407 
W241 
west} 
B2412 
@2443 
C2614 


62413 
B2416 
02437 


MAIN 


29252 
240500 
86956 
18198904 
229404 
Qeai7} 
124434 
1242842 
@SA157 
035226 
125S5na 
1678404 
123122 
143129 
1972294 
G62438 
1AG414 
220426 


Q28252 
181348 
W25A75 
127022 
W1187% 
W45a975 
B2n168 
Loiand 
Q@32274 
a2niGs 
1a1aud 
OR22764 
@1a274 
818274 
602274 


024547 
“a45i2 
B3NW157 
Bi1rtss 
OLAL6S 
C20782 


QGagas 


A643 
> 3 


Lr er a ee) 


oWi 


2W23 


GENRETS3 


WE,%3 


LDA 
STA 
JOR 
MOV 
JMP 
LOA 
NEG 
COM 
LOA 
LOA 


ADD 


H,5C 

@,CSC 
CISCNT 
@,2,S82R 
204 

8,LS 

i,i 

{,l 

2,UNIT 
S,UNTINS,2 


~MOVS {ty 


3,1 


ADDZL 6,2 
ADDZL 8,8 


AODO 
DIC 


O,1i 
@,.0SKP 


SUG® 8,1,S82R 


JMP 


LDA 


WE 2 


@,SC 


MOVS @,0 


LOA 


1,WOSW4,2 


ADDZ @,1,52C 


1SZ 
STA 
LDA 
MOV 
JMP 
LOA 
MOV 
JMP 
$2 
TS2Z 
JMP 


JSR 


WDSW,2 
1,WOSw+d,2 
O,FATAL 
@,0,S5ZR 
ORWRET 
2,LUPSW 
@,&,52R 
CRWRET 
RWRET 
RWRET 
ORWRET 


SWCE 


MSG57 


LOA 
T$2Z 
I&Z 
JMP 


cc, 
70 
C1 20 


C. rer = 
Yoda COs 
Wme mk ©) 2 


2,UNIT 
MISC,2 
FATAL 
oh 
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yFINO ENDING OISK 
yADDRESS 

PACGSSECT, ACL HEAD 

YIP THE SECT & @ THE LAST 
sICR HEAD OIO NOT OCCUR 
PSECT 5 LAST SECT 

HEAD mj 


JPORM THE ENDING DISK 
PAODRESS AS READ By "OIC 


p SECT 4 

PEXPECTED ADDRESS 

YREAD ACTUAL 

PENDING OIJSK ADDRESS ERROR 


JADO WORDS WRITTEN 
#TO TOTAL COUNT 


JOOUBLE PRECISION 


TWAS THERE A FATAL ERROR 2? 


PERROR RETURN 
IS THE LOOP SWITCH ON ? 


ERROR RETRUN 


PNORMAL RETURN 


PENUING MEM ADDR ERROR 
JIOENTIFIER 


ITOUNT AS MISC TYPE ERROR 
ISET FATAL FLAG 

;GO ON 

PENDING OYSK ADDR ERROR 
PCOUNT AS NISC TYRE ERROR 
ISET FAYAL FLAG 

160 CN 


A 0043 
at 

O2 @2434 
03 82432 
04 

65 02433 
G6 02434 
97 G2433 
O& 42436 
99 Y2437 
12 82440 
11 O2444 
{2 ©2442 
13 22443 
14 uedd4 
{5 862445 
{6 @2446 
17 82447 
15 veasa 
19 a2454 
29 62452 
2i ¥e4a53 
22 02464 
23 02495 
246 02455 


26 2457 
27 02460 


29 “2464 
39 @2462 
O4 O2463 
32 62664 
33 2465 
34 82466 
35 ©2467 
36 U24786 
37 W247} 
390 B2472 
39 82473 
ry M2474 
LM: PETS 
Se See C 
Lo SORTS 


t 4 RAMAN 
aye sabe wvive 


So LAD SSE 
fi 


CF, See Se 


TQ e* TD DC? 


C71 0% 


MAIN 


OLLLoOL RE it 
G02552 


oP 
ana n 


Dn roe Cs CH CA Gt 
mS OOM 


RE.22 


oo oc ® 8 
Ye CF B88 A 
Bo 
Orne GI QA CA 


«. 
= 


Ol iied 


O24278 RE,208 


107,04 
H2274 
ABGSGL4 
OH6323 
AG4592 
Q2N245 
H4aeag 
1a24ag 
N4A LO? 
Y62077 
0823597 


(12125 RE,218 


AA2276 


QObA7F7 RE,S3 
{aei2a 
190122 
Q80405 
GHGS33 
GAGIRG 
@O6020 
ON L597 
83901457 
@10272 
BUHAGA 
i Ge Gi 
019162 


13% MISC,2 
PSTAY 


HEADER 

PCRLF 
MESSAGE 
MS3G29 

LDA 2,UNIT 
I5Z AECNT 
Ji? RE24 
ISZ ADDER,@ 
LO& O,EVODN 
MOV @,0,SZR 
JP ORHRET 
PCRL& 
MESSAGE 
MEG53 

LOA @,RELRAN 
ST& G,RANDOM 
SUS @,8 

STA @,RETRY 
TORST 

JMP ORLUP 


ISZ PADER,2 
JMNP @RWRET 


READS @ 
ADODZL 4,2 


ADDZL 8,8,S52C 


JMP , 95 
HEADER 
PCRLE 

MESSAGE 


LOA 2,UNIT 

IS2Z Cweny 

JMP RES! 

ISZ CWwER,2 

[SZ RETRY 
2 


RQ = —wN 
we Of te 


oo ¢ 


a SC ce 


MWe LO 
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SCOUNT AS NISC TYPE ERROR 


SPRINT STATUS & ERR RETURN 


JADORESS ERROR 


P"ADORTSS ERROR" 


SJADDRESS ERROR COUNTER 
P2ND FAILURE IN A ROW 
MFIRSYT PAILURE 

#17 FwO COMPUTERS 
SDON'T TRY AGAIN 
PHEADS MAY HAVE MOVED 


pUTRY AGAIN" 


PRESET RAN # GEN FOR 
PTHE RETRY 


CLEAR RETRY SWITCH 


700 IT AGAIN 


ICOUNT PERM ADDR ERRS 
SCRROR RETURN 


CHECK WOROD ERROR 


SIF SW3al DON'T PRINT 


P"CHECK WORD ERROR" 


FCRECK WORD ERR COUNTER 
S2ND ERROR IN A ROW 
GFIRSY ERROR 

ISECT RETRY FLAG 


erm ica Series 2 a on 
9,0 FSO SS. Sette Nt Re So aD 
puni Paria Pulm 
we, re ~y ae 
BOOS SAP A “ ~ MAY 
Sager 4 Re Yeas <i 
y aa at wt ow = ee 4 
Boe ae Ts Ra oa as ~/ 
ao aad i we ner ‘ 
ae vere! o* ag o~ Cements re 
tt aw the ae ur en oe 
Mie eae fee be oy ‘ Pass oie 
Pines Re RE ae bt pease Been Maelo » 
ars a RE TW oa 3 
; 1a pre we rmr im be ee oe 
a as a Oe Te ThA 
ae Ph 6 Re hey, 1 ao toe 


a 8644 


At 
G2 
AS 


W251 
02512 
02545 
A2544 
W2545 
42516 
025147 
82524 
¥W252}4 
02522 
02523 
W2526 
W2325 
42526 


Q2527 
22538 
W293} 
02532 
A2533 
YW2594 
¥W2535 
W2536 
42537 
A29040 
W254} 
Q2542 
02543 
025464 
A2545 
42546 
02547 


wMAIN 


A30157 
@2n272 
4140279 
Gen 422 
AL1a162 
194404 
BAAn4aS 
@{1133 
AANASSA 
24168 
125044 
QABA405 
GiSiii 
Manany 


@11135 
wUSS24 
B1Sii5 
aanaas 
1u24ua 
d4a163 
Q@20772 
224163 
125%u4 
“BNSKS 
114145 
Bandana 
A183115 
BAGS 
‘ALLL144 
210163 
VABSAHR2 


RE,41 


RE,a12 


RE,42% 


RE 438 


RE,443 


RE,453 


RE, 461 


2, UNIT 
0,CWCNT 
DACNT 
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IGENCRATE DATA 
SSTORE IN MEMORY 


VIF Sw3at OONIT PRINY ERRORS 


JA ERROR DETECTED 


—9DON'T PRINT HEADER 


p"ADOR GOOD BAD WORD 
PETC, 


a 0054 MAIN 


Ot ‘ 
O02 89318 @603924 PCRLF 
@3 BO3Li 224020 LDA 4,I10X@ 
@4 63312 866922 TYPZ1 PRINT ADORESS 
03 @3313 024447 LOA 1,6000 
@6 @3344 2963923 ~ TYPACY }GO0D DATA 
@7 83345 024444 LDA {,BAD 
@6 #3316 886323 TYPAC! IBAD DATA 
@9 
(@ 23337 9209254 LOA @,CA 
11 633208 824029 LDA {,I0x@ 
12. 83521 126422 SUB 8,1 
13 43322 886322 TYPZ4 yWORDH 
14 063323 2822432 JMP OCKRET 
13 
16 @3324 9144352 CK43 - I32 FSTGC ICOUNT ERRORS 
17 633825 angsoi JMP ,¢{ 
18 03326 001468 ; JMP 2,8 JRETURN 
19 
2% 93327 @76430 CCI JSR OPATT ICHECK THE DATA 
21 0333@ 926029 LDA 1,@IDX0 
22 03331 120414 SUD# O,1,8ZR 
23 043532 884735 JSR CKER ICHECK ERROR 
24 03333 710425 TS5Z Gwe 
25 23354 2230773 JMP CC 
26 63355 aladel TS8Z FSTGE JANY ERRORS 22 
27 83335 202422 JMP ,22 
23 @3337 900415 JMP CCL NO, EXIT 
29 03343 y6a477 READS A IF SW3a] DONIT PRINT ERRORS 
3Q@ 83341 123120 ADOZL 2,2 
31 63342 303122 ADDZL @,8,82C 
32 803343 gn2411 JNP GGRET 
33 063344 GAG324 PCRLF  pYES, PRINT THE 
34 03345 924641 LOA 1,PSTGC ITOTAL # OF ERRORS 
35 803345 006322 TYPZ4 : 
36 03347 096325 MESSAGE 
37 @355a an4g5a6 M8656 P"ERRORS" 
38 @3351 342483 JMP OGRET 
39 
49 863352 19432 CC43 I8Z GRET PNORMAL RETURN & 2 
41 @3353 aa2dat JMP @GRET ; 
62 
Roo oe Cares Seis a 
A ee? Wa ae ie: ES 
CS. VO: ren ee 
oo Oe! Cie eke 
AG IV SSG] Soe ee GCC R 2 
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4 0035 MAIN 


at ‘ 
2 POPERATOR SPECIFIED WORDS 
03 
@4 O83G5 054443 VAR,O8 STA S,VARET 
85 O53934 E40264 YOZ VARPT 
86 83305 A30264 LOA @,VARPT 
Q7 63365 634205 LOA 3,VARSP 
OO 83367 372045 ADCH 3,2,5NR 
M9 05379 630493 JMP VAR,1 YEND INPUT 
14 63571 e821C90 LDA 0,0,2 
{1 439372 OF2494 JMP GVARET 
$2 63373 GiG263 VAR,1: LDA 2,VARST 
13 03374 @59264 STA 2,VARPT 
14 @3375 2609767 JMP VAR, G+4 
15 
16 @32376 B2GGCG VARET: 2 
{7 
13 
49 
20 PRANDOM NUMBER GENERATOR 
2i 
22 83377 O544351 RANE STA 3,,UDG3 IGENERAYE A RANDOM 
23 054008 8590427 STA 2,,U002 
24 83401 944425 SOTA 1,,UD91 
235 €ocg2 02602849 LOA @,RANDOM JNUMBER IN ACO 
260 80403 094419 cr .~U0G60 
27 09404 854420 LOA 3,,UD22 
26 G84095 165009 ADD 93,90 
29 U3460G6 040243 STA @,RANDOM SSTORE NEW VALUE, 
3@ 03407 111100 NOVL 8,2 a. 
31 039418 0830417 LDA 2,,U0%2 
v2 @344% 024445 LOA 1,,U004 
33.054$2 08024106 JMP 0,UDG3 
34 
95 09413 24420 ,UDSG3 LDA 1,,UD21 PRANDOM CONTINUED 
55 @3414 0644410 OTA 1,,U018 
37 03415 105420 MOVZL O,4 
30 BS4{6G $25120 MOVZL 1,1 
99 83417 O14¢419  .- OSZ UDI 
40 0368429 609776 JMP , a2 
Of. Gosek C7 oIC LOO Oy 
G2 UNGee WeeteS Novel ty 
of Sow tet ee ron are Se aay 
Gee eee Oe Aa ae Tae 
o)otuess t8isht juste: 
fh Ute e SG. Casas ‘setae «ot 
ie ae COO ea 
Oe eee ar ln te 
GW Peto foc os SUG2L1 a 
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a @056 MAIN 

@1 | y BINARY TO DECIMAL ASCII CONVERT ; 

Q2 p CONVER?S A DOUGLE PRECISION, TWO'GS COMPLEMENT NUMBER 
a3 § TO AN AGCII DECIMAL CHARACTER STRING 

04 

as p INPUT! D IN ACi, AC2 (HIGH, LOW) 

a6 

a7 s OUTPUT! ASCII CHARACTER STRING, TERMINATED BY A 
00 ) NULL WORO, 

69 } CHARACTERS PASSED RIGHY ADJUSTED, 
1a ? BIT 6 © @, IN AC@ TO USER 

i! ’ ROUTINE WHOSE ADDRESS MUST BE 

12 , STORED IN LOCATION 41 OF PAGE @ 
13 

14 j STRING OF FORM? : 

15 } #NNNNNNNNNN (NULL 

16 } OR eNNNNNNNNNN (NULL) 

17 

18 ) CALLING SEQUENCE 

19 ’ JSR 2O0BD0 

2 } RETURN 

21 

22 ) DESTROYED! ACi, AC2, ACS, CARRY 

23 } UNCHANGED? AC@ 

24 

25 03434 @54456 08023 STA 3,,F083 } SAVE RETURN 

26 03435 840454 STA @,,F0a0 i SAVE AC@ 

27 83436 A20502 LDA O,eFD3A } POINT TO HIGH ORDER POWER IN 
23 ) TABLE 

29 423437 8405086 STA O,.FD12 

3A V3448 $76400 Sud 3,3 

34 43444 054452 STA 3,O0I1GIT 

$2 83442 044500 ,FO99t STA 1,,FD10 ) SAVE ABS(NUMBER) 

33 03443 250520 STA 2,.FDiGe4 

34 03446 834447 LDA 3,DIGIT 

35 085445 175004 MOV 3,3,5ZR ; 

36 83446 Onoo4] JOR 0,FD4a } PUY OUT SIGN OR OIGIT 
37 83447 024473 LDA 4,eF010 ) RESTORE ABS (NUMBER) 

36 83458 830473 LOA 2,,FDi0+ 

39 434651 920477 LDA 0,,FD22 r GET OCTAL 57 

40 03452 240472 STA 0, .FD1L! ) COUNT IT UP IN STORAGE 
44 83453 034472 LDA 3,,.FDi2 } CURRENT POINTER 70 POWER OF 
62 p48 TABLE 

43 

Ae ou CECE” ge oC: 10 ay iene J LOn GROER ae tS 

er et: eae ay ce aa veige ay maCRS TC a” 

Eo eS ain es oe Gans 

CO Rae. cn area. MOV yi, GnR je Tee PUR OE NG Ge eee 
CO CSc. , oul Par eros y Uae 

on Serie a ie at. Sipe L ce 

See i Onc me to OR LOS 4,0,8 p RIGH GaueR wore 

So eats Wea MOV Oyo, ONC 

BS Bete oe oe 2 ee PCL COO Ge: 

Bs ge Rare ae ote ty ewe RES em em 

87 Cons o Cleese Imp oFossS { Kos SUSTRAST ING 
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A 0857 


Gt 
02 
03 
04 
05 
a) 
a7 
00 
a9 
19 
ii 
ie 
is 
i4 


A347 4 
89472 
DIA7S 
03474 
83473 
Q347G 
90477 
03090 
63504 
85502 
83509 
B3504 
83585 


85506 
83507 


835120 


03541 
83512 
23615 


@5514 
OS515 
BI516 
C5017 
00520 
O5521 
03522 
03523 
03524 
03523 


63526 
05527 
05530 
Q5531 
BISI2 
ROBSON) 


Sm rom 


MAIN 


O21464 
119622 
12604605 
G21cug 
197069 
1724998 


175400 


054449 
020443 
BI4057 
116414 
O10487 
Q8073S 


GACcas 
004318 


B024A2 


BAaCOaO 
OH0008 
GG00G 


BdICI2 
145099 
GN276G 
166499 
ONgeO0 
119009 
aacay? 
041190 
OGcons 
19a240 
ONGeL2 
o50cg0 
239429 
80009 
0647590 
OoCO080 


r 
. Ue 
‘ t : wy 
re my 

ee wee 2 ow 


Pie te ee a ae OB 


oF 0971 


wFOOGE 
2F DGS 
OIGITs 


070053 


LDA @,1,3 


ADDZ 0,2,82C 


INC 
LOA 
ADD 
INC 
INC 
STA 
LOA 
LDA 


Oo De 
=» > @& 
CI Oo © oo 


SUB#® 8,5,S92R 


ISZ O1GiT 
JMP F099 


JOR OIMESS 
M3G23 


JMP 0,FDO3 


100240 
oRDX 18 
6 

180628 

a 

1060 

Q 

128 

q 


am 
a U 
-™ 


. 
_ 
* s 
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} 


RESTORE POSITIVE VALUE 


BUMP ACS TO NEXT TABLE ENTRY 


GET OF 


GIT 


PUT IT OUT 


"TAQ" 


RETURN 


SAVE ACB 
SAVE RETURN 


L1Qwed 
{Qews 
LGve7 
{Gers 


idee5 


1Gwe4 
1Qee3 
iQve2 
fewart 


{oes 


SO rly ee 


eos 


i 


nd 


A mm 


pa are 


« 8058 
wf 

02 

as 

a4 

a3 

AG 
uJ 
ats) 
89 
1a 
it 
‘2 
213 


83351 
93552 
Q35538 
A3554 
@3555 
B3556 
03557 
BS564A 
M3561 
93562 
@3563 
“3304 
“3565 
03566 
03567 
05570 
@3571 
@3572 
03573 


03574 
83975 
@3576 
03577 
e36na 


6 36a} 


cr Ot Pe 


qn a4 
. CH f& C4 tO ee Ch UD 


non 


“5oae 


J MAIN 


854566 
870477 
155182 
AALAO4 
018562 
231402 
024216 
821080 
125112 
{23794 
12343} 
151406 
124090 
824470 
698774 
VOSS14 
028777 
@602t1 
a22544 


{92461 
220207 
830437 
AGBN4B3 
AS39445 
{22400 
054453 
Q@74477 
177102 
aa24dso0 
040443 


Od ee | 
er ee ree s 


yTTO NON INTERRUPT PACKAGE | 

P"HEOO" PRINTO ASCII MESSAGES AD SPECIFICD BY ASSEMBLR 

PICHAR" PRINTS ASCII CHARACTOR, C(Q)R,C(O)L MUST BE 2 

PHILL RETURN o2 17 CCO)ROO,CORRECTS THE PARITY,33 SIMULATE 
y"TYPE PRINTS CCG)R, MUST HAVE PROPER PARITY, RETURN IS 

WTO CALLO1,REPLACE THIS ROUTING WITH INTERRUPT TYPE IF DESIRED 
P'CRLP" PRINTS A CARRIAGE RETURN 

y"POCT™ PRINTS CC1) IN OCTAL FOLLOWED BY A TAB 

y"POEC" PRINTS C(1) IN DECIMAL,LEADING ZEROS SUPPRESSED, 
IFOLLOWED BY A TAS, 


MESS2 STA 3,MESSR PRINT A TEXT MESSAGE 
READS 2 
ADOL 2,2,82C INO PRINT IF SWiet 
JMP 1,3 
ISZ MESSR 
LDA 2,0,9 3C(2) POINTS TO MESSAGE 
LOA {,0377 yA @ BIT MASK 
MES,13 LDA 0,0,2. $C (2) 80ATA WORD 
MOVLS 1,1,S52ZC€ 
ANDS 1,0,SKP 
AND 1,0,SKP ICCBISDATA CHARACTOR RIGHT 
INC 2,2 SINC TO NEXT WORD 
COM 4,1 JFLIP MASK 
JSR CHAR, PPRINT 
JMP MES, ! PANOTHER 
SKPBZ TTO 
JHP a] 
NIOC TTO 
“JMP OMESSR LAST 
ZOCT! SUB @,0,3KP 
POCTS LOA 8,CS50 
LDA 2,0CTAB PRINT CCL) IN OCTAL 
JMP 463 
POEC8 LDA 2,DECTB PRINT C(1) IN DECIMAL 
SUB 9,8 
STA 3,RADRET IBOTH ENTRYS PRINT NUMBER 
READD 3 
ADOL 3,3,52C INO PRINT IF SwWiei 
JMP ORADRET 
CTA G@,ZSUPP ITHEN TAB YO NEXT POSITION 
eTA Byatt 
piowee be u PA"LOA 2, T43LE" INSTRUCTION 
rece. oh 
eis eit ee eo oe ND Dp cometh i, Soave 
gee hai % Pen Wa ee Gace 
Loe Cap eee AGG “Ser ra ee. See 
eae a 
oe ts Ce GENS . srp eugee Ee 
Gob pl PFORSM Tre biG) 


(aes et 
- 


wm owe f 


Gy 
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a @059 


Qa GIC2S5 
939 09627 
94 0000 

QS 856c1 
@G 050952 
7 23633 
O06 88534 


11 @0635 
12 839596 
15. @c0057 
146 CoG4a 
15 BSG41 
{6 80642 
17 G8645 
{5 83644 


20 83045 


2¢ 039646 
23 43647 
24 93050 
25 083091 
2G 03652 
27 83658 


SM 69056 
Si 83655 


aMAIN 


191295 
094°07 
CS44L46 
yoccoo 
170504 
BO4¢2S 
OAA754 


6384200 
190059 
C1006 
OG1CaO 
COdi89 
econle 
coooco1 
0d60G0 


990406 
p00012 
QV2042G 
G04700 
090144 
ganoodte 
OGOoAS 
6G@0066 
BCRn31a 


BuldgOd 
260006 


DECPs 


OCTADBS 


OCCTOs 


eROX 12 


eROX G 


ZSUPP 3 


MOVZRG 2,2, 98NR 
LDA 3,CCG 

OTA 3,Z0UPP 
AOD 3,0 

MOV 3,3,52R 
JOR CHAR, 

JMP DECOCT 


C(O) SOIGIT 
IMAKZ ASCII 


PPRINT 
JGET NEXT OLGIT 


LOA 2,;,%4%,=DECOCT 
160082 

1009 

12802 

102 

1@ 

t 

Q 


LOA 2,,%14,*#DECOCT 


10008 
1992 
168 
1@ 

i 

a 


8 


RADRETE 8 
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a 0860 MAIN 


Q4 ‘ 
@2 03056 0544604 CHAR,t STA 3,CHRET PPRINT C(O) RIGHT 
03 638657 :2a:3235 HOVZS O,8,35NR PRETURN #2 IF NULL 
94 BS6GO0 ANL401 JHP 4,3 
@5 “3gog, 040452 STA O,CHSAY 
@6 @3602 {70805 ADC 3,3 SCOMPUTE THE PARITY 
67 3663 11723408 ADD @,3 
. 0G AIBG4 {634B4 AND 3,0,8ZR 
@9 83665 @2a775 JHP ,a3 
14 23666 176668 SUDCR 3,38 ICOMBIND PARITY WITH CHAR 
41 @3607 920444 LOA 8,CHSAV 
$2 636720 163320 ADDS 3,20 
13 
14 @5671 834448 CHARi!: LDA 3,CHTAB yIS THIS A TAB 
$5 83672 116415 SUB# O,3,8NR 
16 863673 930407 JMP 497 rYES 
17 @3674 an4aead ' JSR TYPE INO PRINT IT 
18 @8675 a0nn4{3 JMP CHAR244 EXIT 
19 
20 @38676 89220436 LDA O,CHORZ PSIMULATE A TAB 
21 83677 234220 LDA $,Ci2 IVTA 1 TO 10 SPACES 
22 03708 162426 SUBZ 3,8,SEZ 
23 @3701 920777 JMP oe} 
26 “US7HNS 141085 MOV 0,0,SNR 
25 837803 “020424 JMP CHAR2 
26 03704 220431 LOA @,CH240 
27 03785 874433 JSR TYPE 
28 63796 220772 JMP ,°1@ 
29 #3707 040425 CHAR23 STA 9,CHORZ 
3A @374a 063541 SXPBZ TTO 
31 83744 020777 JMP ,of 
32 637142 B60211 NIOC T70 
33 63713 BA2417 JMP @CKRET 
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a 2001. 


Ot 
@2 
as 
a4 
03 
a6) 
07 
te) 
a9 
14 
11 
12 
13 
14 
15 
id 
17 
10 
19 
2a 
et 
22 
238 
24 


23° 


26 
27 
20 


29° 


39 
of 
92 
eye) 
34 
33 
36 


@374¢ 
AB715 
O371G 
O37%7 
03720 
O3724 
03722 
03723 
Go724 
W3725 
05726 
33727 
03730 


BI731 
93732 
83755 
Q3754 
957355 
23736 


03737 
05740 
BI744 
63742 
93743 
B3744 
BS745 
85745 
83747 
03754 
BS751 


03752 
09753 
03754 
09755 


~ my 


wMAIN 


34422 
QAGA477 
LAHGIAd 
COG497 
C20216 
694735 
Be0ALa 
0467398 
H20216 
GGA7 GL 
1724090 
O40445 
202486 


gacnids 
QA0000 
WOBERB 
BOOOuUD 
020240 
86000 


200908 
Bo44i4 
O10778 
074477 
LPIA? 
G2240G 
BO35il 
BG0777 
201344 
OaLGe | 
G00000 


B40037 
244240 
ecaedy 
@24600 


CRLF & 


CREEL 


CHTAD3 
CHRET! 
CAHSAVE 
CHORZS 
CH2408 
CRLFRG 


MESSR3 
TYPES 


TYPRET!I 


SACI 


STAC? 


STA O,CRLER 
READS @ 

ADDL 0,2,82C 
JMP CRLPI 
LOA 0,C215 
JOR CHAR, 
LDA 6, 
JSR 
LOA 08,0377 
JSR 
oUS 
STA 
SMP 


@,CHORZ 
@CRLFR 


STA 3, TYPRET 
TSZ CHORZ 
READS &% 

ADDL& 3,3,52C 
JMP OTYPRET 
SKPBZ FTO 

JMP ef 

DOAS 0,TTO 
JMP OTYPRET 

Q 


POAVE ACA,1,2 
STA 8,SAVQ 

STA 
STA 
JMP 
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“ONO PRINT TF Swing 


PRINT CARRIAGE AND LF 


SPRINT RUB 


ICLEAR HORZ POSISTION 


JEXIT 


TYPE THE C(Q)R IF 


PACi8{ DON'T TYPE 


a 0862 MAIN 


Gi ITCLETYPE INPUT ROUTINE, NON INTERRUPT 
2 } 

0s CALL INPUT 

@4 ) ADOR OF BYTE POINTER 

as } RETURN =» CR ONLY 

OG ; RETURN © NORMAL 

@7 PINPUT IS STORED Ral IN 7 BIT ASCIY 

ag PINPUT IS TERMINATED BY CR, (215) 85 

09 POTOREDO, LINE FEED ECHOS CReLF 

tv INO DATA STORED, INPUT CONTINUES, 

11 

12 838762 254544 INP? STA 3, INPRET 

13 63765 223473 LOA @,00,3 GET BYTE POINTER 

14 @3764 aéo531¢ STA @,DASE 

15 73765 4405142 STA @,O0PTR 

16 463766 a60210 NIOC TTI 

17 23767 @20512 LDA @,M115, 

18 63778 240519 STA @,CHCNT. 

19 3771 063610 TTWAIT: OKPON TTY PWATT FOR INPUY 

22 83772 006777 JNP ,et 

24 @3773 @04010 OTAC {,7TTI PREAD INPUT CHAR 

22 @3774 220216 LDA @,C377 | 

23 43775 1206415 SUODS 8,4,3NR 

24 63775 BAn442 3 JMP RUG PRUB OUT 

25 YW3777 220200 LO4 @,€142 

26 OA4G02 $06414 SUB8 @,1,52ZR 

27 M4004 G4o4duds JMP 58 

26 “40An2 and3se4 PCRLF JLINE FEED TYPED 

29 64083 29766 Jip TYWAIT 

30 04004 GOOti1 DOAS 1,7TO PECHO CHAR 

OL @400@5 950472 LDA 2,0PTR 

S2 84H0G 810471 - IS5Z BPTR 

33 A4Aa7 234245 LDA $,C2i5 gCR CODE 

34 A@40106 136425 SUG {,3,3NR 

35 “4811 800456 JMP CRCOO rCR TYPEO 

$6 U4ul2 e2nefe2 LDA @,C477 17 BIT MASK 

37 44013 151223 INP,@1 MOVZR 2,2,SNC . 

35 “4014 107401 AND @,1,SKP ISTORE INTO RH 

39 44015 187701 ANOS @,1,SKP 

466 B4016 @hA4as ° JMP ,¢3 

44 84037 @2,a00 LOA 3,2,2 

42 429A (F70059 “00 3, 

oS ae ee ee Ste Spas pe LStORe SVE 

WG Gee te wee Bao ToL Crens 

2S. Bee Oe a eo Sp ~2 

ae : oe or SM Sep pAC SEM Le oe TYEE 

Mo 4 . Cree dee eee | 

jG wag? every & Coe, TNE PALL DONE 

ee ee oe 2 Ng 2G AS esi 

US were Ce Gees ost Agree 

Die weg Ca Ui Fb ata Wand 

ha wevie o32Ty! sce02 Yte PT Wales SS 

coe 3 ea) vie gt ee: ; 

us waco eae eer Ne 
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a 0003 


Ot 


24540 
O4041 
M4062 
NSO4S 
O4044 
64945 
4046 
14047 
D405 
04954 
94052 
049538 
e4aga 
C4955 
Q4090 
04097 
24068 


“4061 
04u6e2 
B4003 
84004 
B4NGS 
64066 


“4807 
@4978 
04071 
M4072 
G4073 


2 B4G74 


O4075 
B4976 
ada77 
aaiag 
Od103 


HATN 


o20444 
BRA4S7 
122493 
POS7A0 
014403 
914499 
GI0454 
191020 
B21C09 
1516099 
0104695 
024216 
1a7 400 
QATTEB 
1613500 
601113 
AMZ ii 


qgGo2a4 
006923 
ON4271 
OL4d419 
O14449 
G00743 


H20406 
112419 
Q0G707 
Q20246 
176460 
BA0717 


BAGOAG 
BAG00S 
BHCOGO 
O900G0 
177515 


RUDE 


RUBL3 


OVPLY 


CRCODS3 


BASES 


INPRET 3 


DPYR0 
CHCNT3 
Mi15e2 


LDA 
LOA 
SUD 
JHP 
032 


O,Niis, 
1,CHCNT 
1,0; CNR 
TTWALT 
OPTR 
OSZ CHCNT 
LDA 2,D0PTR 
MOVZR 2,2 
LDA 0,0,2 
MOV 0,0,9NC 
JMP RUDY 
LDA {,C377 
AND O,% 

STA $,@,2 
MOYS @,@ 
DOAS @,7TO 
JMP TTWAIT 


PCRLF 
MESSAGE 
MOG2¢ 

OSZ BPTR 
DSZ CHCNT 
JUMP TIWAIT 


LO4 @,B8A9E 
SUCH 8,2,3NR 
JMP INP,1L 
LOA 8,C377 
SUB 3,3 

JMP INP,B 


aaa eo ® 


115, 
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NOTHING TO RUB 


IGET BYTE 


SAVE RH ONLY 


pECHO LH (RUBBED OUT) 


ECHO RUBBED CHAR 


PLINE OVERFLOW 


PY INPUT OVERFLOW" 
JBACKUP BYTE POINTER 


WYES 


a 086 


Of 
2 


846102 
04103 
4104 
04108 
@44a6 
64187 
24112 


B4ii1 
41142 
04113 
Od4i164 
44415 
24116 


4117 
vataa 
4121 
4422 
B4t2a3 
ad124 
64125 


444326 
M4127 
64190 
M413} 
84132 
G41353 


4. 


MAIN 


0446244 
VO7141 
@40249 
0844243 
238757 
018254 
QABBEA 


8821427 
OA21¢63 


‘@R2166 


OA2175 
Ae2283 
Bne21a 


@1446632 
014637 
244096 
02647 
AL2Z6S2 
B40054 
28g0ee2e 


8@4147 
004142 
803977 
9A41335 
Q@94194 
044148 


OCT!3 


OCT,13 


ONTS 


ONT.413 


BOLOK COMMAND TADOLE 


44241 
OO7iit 
046245 
64424) 
038797 
010254 
8 


IOISPATCHES 


RE 
AT 


OK 


RCL 
LUP 
OLAY 


DATA TABLE 


14632 
14617 
944056 
2617 
2532 
4aas4 
Q 


pOISPATCHES 


FLZ 
Pui 
RAN 
ONES 
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